Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...
warn 'BEFORE: ',Data::Dumper->Dump([\@arrayOfHashes],[qw(*arrayOfHashe
+s)]),' ';
$Data::Dumper::Deepcopy=1;
warn 'AFTER: ',Data::Dumper->Dump([\@arrayOfHashes],[qw(*arrayOfHashes
+)]),' ';

Select or download this

BEFORE: @arrayOfHashes = (
                   {
...
                   }
                 );
  at DataDumperDeepCopy.t line 14.