my $sv = "k";
my $sr = "l";
my $sj = "m";

my @X = ([qw(a b c)], [qw(d e f)], [qw(h i j)]);

push @X,[qw($sv $sr $sj)];