use List::Util qw( max );

my %hashName = (a => 1, b => 2, c => 3, d => 3);

my $mx = max values %hashName;
say "$_ => $hashName{$_}" for sort grep { $hashName{$_} == $mx } keys %hashName;