use Data::Dump;
my ($x,$y);
$x=\$y;
$y=\$x;
print dump([$x,$y]);