my ($x,$y);
$x=\$y;
$y=\$x;
my $aref=[$x,$y];