use strict;
BEGIN { package vars; no strict qw(refs); $a="main::x"; *$a = \$$a }
$x = 5;
print $x;