my %hash1 = ( one => 1, two => 2 );
 
check_limit(\%hash1);
 
sub check_limit {
        my $hname = $_[0];
 
        my $num = 0; for (keys %{$hname}) { $num++ };
        print "Hash: $hname has $num keys\n";
}