Select Code to Download

my @letters = qw(
   red red red blue white yellow blue navy navy green white cars );
...

print("$_ => $count{$_}\n")
   foreach sort { $count{$b} <=> $count{$a} } keys %count;

red => 3
blue => 2
...
cars => 1
green => 1
yellow => 1