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