use strict;
use warnings;
my @matrix = (
  [ 1, 2, 3 ],
  [ 4, 5, 6 ],
  [ 7, 8, 9 ],
);
use Data::Dumper;
print Dumper \@matrix;
print $matrix[1]->[2] . "\n";  # prints "6"