my $x = 0;
my $sub1 = sub { print "$x\n" };
my $sub2;
{
	my $x = 10;
	$sub2 = sub { print "$x\n" };
}
&$sub1;
&$sub2;