my $protein ='';
...
{
    ...
    my $protein .= codon2aa($codon);
}