Select Code to Download

_iterative_copy( [ 'a' ] );

What's a ARRAY at script.pl line 12
        main::_iterative_copy('ARRAY(0x15d5f18)') called at script.pl 
+line 47

use strict;
use warnings;
...
   print($d1->[0], " != ", $d2->[0], "\n");
   print($d1->[1], " != ", $d2->[1], "\n");
}

$VAR1 = [['a','b'],{'k2' => 'v2','k1' => 'v1'}];
$VAR1 = [['a','b'],{'k2' => 'v2','k1' => 'v1'}];
ARRAY(0x1ae0718) != ARRAY(0x1ae073c)
ARRAY(0x15d5fd8) != ARRAY(0x1ae076c)
HASH(0x15d6c98) != HASH(0x1ae0790)

sub iterative_copy {
   my $root;
...

   return $root;
}