my ( $R_score, @protein, @R_score_protein );