Select Code to Download

e.g.

my %animals = (
  pets => [ qw(cat dog) ],
  non  => [ qq(rhino giraffe) ],
);

    foreach $i (???) {
        push ( @some_animals, $animals{pets}[$i] );
    }