main->{x} = 1;
print $main->{x}; # prints 1