1. # Cow::speak, Horse::speak, Sheep::speak as before
   2. @pasture = qw(Cow Cow Horse Sheep Sheep);
   3. foreach $animal (@pasture) {
   4. &{$animal."::speak"};
   5. }