# get values with numerical sort 
@values = sort {$a<=>$b} values %hash;
# get the array last value, that considered the max value of the hash
$max=$values[$#values];
print $max;