Select Code to Download

@data1 = (
           'one',
...
           ]
         );
@data2 = @{$data1[2]};

@data1 = (
           'one',
...
         );
$data1[2][3] = \@data1;
@data2 = @{$data1[2]};

package Refs {
    my $data1 = [qw[ one won ]];
...
    eval do { local $/; <$FH> };
    Testing::recursive_data($data1, $data2);
}

$data1 = [
           'one',
...
         ];
$data1->[2][3] = $data1;
$data2 = $data1->[2];

package Correct {
    my $string = '@data1 = ("one", "won", \@data2);
...
    eval $string . ';1' or die $@;
    Testing::recursive_data(\@data1, \@data2);
}

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,