my $max = 0; $_ > $max and $max = $_ for values %hashName; print $max;