sub min {
    my %h = @_;
    my $min = (keys %h)[0];
    $h{$_} lt $h{$min} and $min = $_ for keys %h;
    return $min
}