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