foreach my $animal (@animals) {
    $animal->run;
}