sub check_limit {
   my %happyhash = %{$_[0]};
   # It is now named %happyhash within the subroutine.
   my $num = keys %happyhash;
   print "Hash: happyhash has $num keys\n";
}