johngg@abouriou:~/perl/Monks$ perl -Mstrict -Mwarnings -MData::Dumper -E ' my $raTable = [ [ 1, 2, 3 ], [ 4, 5, 6 ], ]; say qq{\nNumber 4 is found at \$raTable->[ 1 ]->[ 0 ] - $raTable->[ 1 ]->[ 0 ]}; push @{ $raTable->[ 0 ] }, 8; push @{ $raTable->[ 1 ] }, 9; print Data::Dumper->Dumpxs( [ $raTable ], [ qw{ raTable } ] );' Number 4 is found at $raTable->[ 1 ]->[ 0 ] - 4 $raTable = [ [ 1, 2, 3, 8 ], [ 4, 5, 6, 9 ] ];