Select Code to Download

#!/usr/bin/env perl
use warnings;
...
for my $file (@files1, @files2) {
    print "$file\n";
}

1
2
...
4
5
6