use Data::Dumper;
$Data::Dumper::Purity=1;
use strict;
my $array=[0,1];
$array->[0]=\$array->[1];
$array->[1]=\$array->[0];
print Dumper($array);