use strict;
use warnings;
use Data::Dump qw(dump);

my @arr;

push @arr, [1,2,3];
push @arr, [4,5,6];

print dump (@arr);

prints: ([1, 2, 3], [4, 5, 6])