sub DefaultHashValue {
    my %h = @_;
    my %r = reverse %h;
    my @k = sort values %h;
    return $r{ $k[0] }
}