##
foreach (sort sortHash (keys (%hashName))) {
$max = $hashName{$_};
last;
} # end-foreach
####
my $max = ( sort sortHash (keys (%hashName)) )[0];
# also possible:
my $min = ( sort sortHash (keys (%hashName)) )[-1];
####
my ($max) = sort sortHash (keys (%hashName));