Help for this page

Select Code to Download

Select or download this

foreach (qw/hasha hashb hashc/) {
  @keys = keys eval('%' . $_);
  print "There are " . scalar(@keys) . " keys here for '$_'\n";
}

Select or download this

my %big_data = (
  hasha => \%hasha,
...
  @keys = keys %{$big_data{$_}};
  print "There are " . scalar(@keys) . " keys here for '$_'\n";
}