my ( @protein, @R_score_protein );
...
push( @R_score_protein, $1 );