Help for this page

Select Code to Download

Select or download this

for (@somelist) {
      my($foo,$bar) = split;
...
      $somehash{ $foo }->{ $bar } ||= [];
      push @{ $somehash{ $foo }->{ $bar } }, $x;
}