sub lowest_key (\%) {
    my @keys = keys %{ shift() };
    my $low = $keys[0];
    foreach(@keys) {
        $low = $_ if $_ < $low;
    }
    return $low;
}