#are these the same or different?
my ($x,$y);
$x=\$y;
$y=\$x;
print Dumper([$x,$y]);
my $ar=[];
$ar->[0]=\$ar->[1];
$ar->[1]=\$ar->[0];
print Dumper($ar);