my %hashName = (a => 1, b => 2, c => 3);
my $max = 0;
$_ > $max and $max = $_ for values %hashName;
print $max;