use List::Util qw(max);
my $max = max values %hashName;