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