my $x = 1;
BEGIN { $x = 2; }
print $x; # 1