in reply to Re: How to retrieve the worst value?in thread How to retrieve the worst value?
Why create an extra hash?
print +(sort { $a <=> $b } values %hash)[-1]; [download]