my %count;
for (@letters) {
  $count{$_}++;
}

for ( map { $_->[0] }
      sort { $b->[1] <=> $a->[1] }
      map { [ $_, $count{$_} ] } keys %count )
{
  print $_, "=>", $count{$_}, "\n";
}