Select Code to Download

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