#!/usr/bin/perl

my %hash = (
    red    => 2,
    pink   => 1,
    orange => 4,
    black  => 3,
    blue   => 4
);

foreach ( reverse sort { $b <=> $a } keys %hash )
{
   if ( !$highest || $hash{$_} == $highest )
   {
      print "\t$_, $hash{$_}\n";
      $highest = $hash{$_};
   }
}