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

##</code><code>##

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