Select Code to Download

C:\test>228543
Benchmark:
...
CloneCopy    27625/s        5000%          34%           --

Difference found!

$DeepCopy = {                   $CloneCopy = {                   $Stor
+ableCopy = {
  'rrs1' => [                      'rrs1' => [                     'rr
+s1' => [
...
      ${$VAR1->{'rrs1'}[4]}
    ]
};

#! perl -slw
use strict;
...

#print Dumper $DeepCopy, $CloneCopy, $StorableCopy
#       unless multicheck( $strDeepCopy, $strCloneCopy, $strStorableCo
+py );