%AniType = (cats => ["I", "like", "cats"],
            dogs => ["I", "like", "dogs"],
            none => ["I", "like", "neither"],
            both => ["I", "like", "both"],
            );

  if    ($likecats) {@AniAry = $AniType{cats} }
  elsif ($likedogs) {@AniAry = $AniType{dogs} }
  elsif ($likeboth) {@AniAry = $AniType{both} }
  else              {@AniAry = $AniType{none} }

foreach $line (0..2) {
  print "$AniAry[$line] MiscArya[$line] MiscAryb[$line] \n";
}