my $ref;

foreach (@$ref)
{
  print "Foo\n";
}
print "Bar\n";

##</code><code>##

my $ref;

foreach (my @list = @$ref)
{
  print "Foo\n";
}
print "Bar\n";