use strict; use warnings;
use Algorithm::Combinatorics qw(combinations);
my $strings = [qw(Word1 Word2 Word3 Word4)];
my $iter = combinations($strings, 2);
while (my $c = $iter->next) {
    print "@$c\n";
}

##</code><code>##

Word1
Word2
Word3
Word4

##</code><code>##

open (DATA, "text.txt");
@Test = <DATA>;
close DATA;