sub check_limit {
    my ( $href, $name ) = $_;
    $name ||= '<unnamed>';     # assign text if not provided

    my $num = keys %{$href};
    print "Hash: $hname has $num keys\n";
}