#!/usr/bin/perl
use strict;
use warnings;

use vars qw($n);

$n = "global";

sub foo {
        my $x = shift;
        print "$x, $n\n";
}


foreach $n (0..2) {
        foo($n);
}

print "\$n = $n\n";

foreach my $n (0..2) {
        foo($n);
}

print "\$n = $n\n";

##</code><code>##

0, 0
1, 1
2, 2
$n = global
0, global
1, global
2, global
$n = global