use warnings;
use strict;

sub abc()
{
	$::x = 'x';
}

foreach $::x (1..2)
{
	print "Before:$::x\n";
	abc();
	print "After:$::x\n";
}

print "\$::x = $::x\n";  # warning for uninitialized value $x (global scope)

abc();
print "\$::x = $::x\n";  # prints $x = x