# get values with numerical sort 
@values = sort {$a<=>$b} values %hash;

# process each element
foreach (keys %hash)
{
	# get the key name of the maximum value
	print "\nkey : $_ : value $hash{$_}" if ($values[$#values] == $hash{$_});
}