my $x='foo';
for $x ('bar') {
    print "$x\n";
}
print "$x\n";
__END__
bar
foo