my %hashName = (a => -1, b => -2, c => -3); my $max = $hash{each %hashName}; $_ > $max and $max = $_ for values %hashName; print $max;