use feature qw( say );
use List::Util qw( max );

++$counts{$_} for @codes;
my $max = max values(%counts);
say grep $counts{$_} == $max, keys(%counts);
[download]