30         my %H;
...
     61         $H{E} = ($_ =~ tr/E//);
     62 
     63         $H{I} = ($_ =~ tr/I//);
     64         $H{P} = ($_ =~ tr/P//);
     65         $H{L} = ($_ =~ tr/L//);
     66 
     67         $H{W} = ($_ =~ tr/W//);
     68         $H{N} = ($_ =~ tr/N//);
     69         $H{S} = ($_ =~ tr/S//);