sub sort_keys {
    my %h = @_;
    my @s = sort { $h{$a} cmp $h{$b} } keys %h;
    return $s[0]
}