Select Code to Download

my $seq=(keys %SEQ)[$j]   <--- missing semicolon

    for(my $i=1; $i<@aas; $i++){
        my $aa = $aas[$i];
...
            $s--;
        }
    }