Select Code to Download

#!perl -lw
use strict;
...
"Deepcopy:", Data::Dumper->new([$array],[qw(array)])->Deepcopy(1)->Dum
+p(),
"Purity:",   Data::Dumper->new([$array],[qw(array)])->Purity(1)->Dump(
+),
"Terse:",    Data::Dumper->new([$array],[qw(array)])->Indent(1)->Terse
+(1)->Dump();

Normal:
$array = [
...
  'foo',
  $array->[0]
]

#!perl -lw
use strict;
...
"Deepcopy:", Data::Dumper->new([$array],[qw(array)])->Deepcopy(1)->Dum
+p(),
"Purity:",   Data::Dumper->new([$array],[qw(array)])->Purity(1)->Dump(
+),
"PureDeep:", Data::Dumper->new([$array],[qw(array)])->Deepcopy(1)->Pur
+ity(1)->Dump();

Normal:
$array = [
...
           ]
         ];
$array->[3][3] = $array;