my ($min, $max) = (scalar each %h) x 2;
($min, $max) = (
    $h{$_} < $h{$min} ? ($_, $max) :
    $h{$_} > $h{$max} ? ($min, $_) :
    ($min, $max)
) for keys %h;