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