Maybe it's not sexy and it's a bit simple but why don't you just var the name and then pass it through, like:

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";
}
[download]

I've done similar things on very long pieces of code for debugging purposes...

magnus