use warnings; use strict;

my @p;
my $p = \@p;
push @p      , [ 1 , 2 ];
push @{ $p } , [ 3 , 4 ];
push @{ @p } , [ 5 , 6 ];