Select Code to Download

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

Word1
Word2
Word3
Word4

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