Select Code to Download

$ perldoc Data::Dumper |grep eval
    printing and "eval"
          eval Data::Dumper->Dump([$foo, $bar], [qw(foo *ary)]);
...
        $Data::Dumper::Purity = 1;         # fill in the holes for eva
+l
        $d = eval $c;
    if "Purity" is set. You can "eval" the result, but bear in mind th
+at the

$VAR1 = {
          'test1' => [
...
                     ]
        };
$VAR1->{'test2'}[0] = $VAR1->{'test1'}[0];