#!/usr/bin/perl
use strict;

my %h = (
	red    => 2,
	pink   => 1,
	orange => 4,
	black  => 3,
	blue   => 4,
	);
	
my @keys    = sort { $h{$b} <=> $h{$a} } keys %h;

my @largest = grep { $h{$_} == $h{$keys[0]} } @keys;

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