my %hash=();
my %rev;
my $highest=0;
for (keys %hash) {
  $rev{$hash{$_}}{$_}++;
  $highest=$hash{$_} if $highest < $hash{$_};
}
print sort keys %{$rev{$highest}};