>>64
$key = (sort { $a <=> $b } grep ($_ > 0, keys %hash))[0];