$x = 2;
my $x = 3;
print $main::x, ' ', $x, "\n";
$main::x = 4;
print $main::x, ' ', $x, "\n";