use vars qw< $x >;
my $y;
*x= \$y;