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