Select Code to Download

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

my $z=[];
$z->[0]=\$z->[1];
$z->[1]=\$z->[0];