Select Code to Download

Stored Zoo data:
Llama - Feet:4 - Color:Tan
Camel - Feet:4 - Humps:2

#[pseudocode - will not compile]
foreach $line (<FILE>) {
...
   my $newanimal = new Animal($name, $animalstats);
   push (@allanimals, $newanimal);
}

__DATA__
Llamas:
...
$animalstats);
  }
}

package Animal;
sub new (
...
    return new Animal::Generic($name, $data);
  }
}

foreach $type (keys $allanimals) {
  my $num_of_animals = $allanimals{$type}->count_collection(); # A met
+hod in Animal::Colelction
...
     $animal->feed();
  }
}