#!/usr/local/bin/perl -wT
use strict;

my %HASH=( brown=>1, black=>2, red=>5, fub=>3 );

print "   Count |\tKey\n","-" x 60, "\n";
foreach my $key ( sort { $HASH{$b} <=> $HASH{$a} } ( keys(%HASH))) {
      printf ("%8s |\t%s\n", $HASH{$key}, $key);
} # end of foreach