my $animal = 'pig';
foreach $animal ('cat', 'dog', 'horse') {
  last if $animal eq 'dog';
}
print "$animal\n";