Select Code to Download

foreach my $protein ( reverse @protein ) {
    ...

while( defined( my $protein = $backward_fh->readline ) ) {
    if( ....