Help for this page

Select Code to Download

Select or download this

%AniType = (cats => ["I", "like", "cats"],
            dogs => ["I", "like", "dogs"],
...
foreach $line (0..2) {
  print "$AniAry[$line] MiscArya[$line] MiscAryb[$line] \n";
}

Select or download this

@AniAry = @{ $AniType{cats} };
$AniAry = $AniType{cats};