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

my %count;
$count{$_}++
   foreach @letters;

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