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)];

##</code><code>##

a b c
d e f
h i j
$sv $sr $sj

##</code><code>##

a b c
d e f
h i j
k l m