Select Code to Download

for my $seq1 (subseqs($s1)) {
    for my $seq2 (subseqs($s2)) {

my @s1 = subseqs($s1);
my @s2 = subseqs($s2);
for my $seq1 (@s1) {
    for my $seq2 (@s2) {