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