@data1 = (
           'one',
           'won',
           [
             'two',
             'too',
             'to',
             []
           ]
         );
$data1[2][3] = \@data1;
@data2 = @{$data1[2]};