#!/usr/bin/perl

my %h = (
	red    => 2,
	pink   => 1,
	orange => 4,
	black  => 3,
	blue   => 4,
	green  => 3,
	);
	
my $i = 0;

my @keys    = sort { $h{$b} <=> $h{$a} } keys %h;

1 while( $h{$keys[++$i]} == $h{$keys[0]} );

my @largest = @keys[0..$i-1];

print qq|Largest are "@largest"\n|;