use strict; use warnings;
our $LC = 'o';

my $lc0 = \$LC;

for ( local $LC = 0; $LC < 3; $LC++ )
{
	my $lc1 = \$LC;

	for ( local $LC = 0; $LC < 3; $LC++ )
	{
		print "lc0=$$lc0, lc1=$$lc1, LC=$LC, \n";
	}
}