my ($min, undef) = each %hash;
$min > $_ and $min = $_ for keys %hash;