my $name = "HASH";

my %$name = ( one => 1, two => 2 );

check_limit($name); 

sub check_limit {
        my ($hname) = $_[0];
 
        my $num = 0; for (keys %{$hname}) { $num++ };
        print "Hash: $hname has $num keys\n";
}