foreach( @protein) {
    if (...) { ... }
    elsif (...) { ... }
    ...
};

##</code><code>##

my %count;
foreach( @protein ) {
    $count{ $_ }++;
    ...
};