#! perl -slw use strict; use List::Util qw[ max ]; my %hash = ( red => 2, pink => 1, orange => 4, black => 3, blue => 4 ); my $max = max values %hash; print "$_ => $hash{ $_ }" for sort grep{ $hash{ $_ } == $max } keys %hash; __END__ P:\test>433230 blue => 4 orange => 4