use strict;
use warnings;

my $var = 'wibble';

foreach $var qw(foo bar) {
    print "$var\n";
}

print $var;

##</code><code>##

foo
bar
wibble