Select Code to Download

check_limit( +{ one => 1, two => 2 });

sub check_limit {
   my %happyhash = @_;
...
   my $num = keys %happyhash;
   print "Hash: happyhash has $num keys\n";
}

sub check_limit {
   my %happyhash = %{$_[0]};
...
   my $num = keys %happyhash;
   print "Hash: happyhash has $num keys\n";
}