#!/usr/bin/perl5.14.1
use strict;
use warnings;
use Data::Dumper;

my @tesxt = ('perl','python','pearl', 'pear', 'pink', 'pong');
my @jumpjump = ($tesxt[0], $tesxt[2], $tesxt[3], 'kit','kat',7);

my @data = ();
push @data, \@tesxt;
push @data, [@jumpjump];

splice (@jumpjump);
@jumpjump = ($tesxt[0], $tesxt[2], $tesxt[3], 'koo','kaa',7);
push @data, [@jumpjump];

print Dumper \@data;