sub check_limit (\*) {
  my $glob = shift;
  my $name = *{$glob};
  $name=~/^\*/%/;
  my $num = keys %{*$glob};  
  print "Hash: $name has $num keys\n";
}

our %foo = qw(q w e t y j f f);
check_limit(*foo);