@x = (0, 'one', ' ', 3);
  $"=')(';
  print "(@x)";

##</code><code>##

  my $i = 0;
  sub inc { ++$i }

  foreach (1..10) { print "$_\n" if(inc == 3 .. inc == 8) }

##</code><code>##

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