#!/bin/perl
my $matrix = [
[ 0, 2, 4 ],
[ 4, 1, 2 ],
[ 2, 5, 7 ]
] ;
print "$matrix->[2]->[1].\n";
for($x=0;$x<3;$x++){
for($y=0;$y<3;$y++){
print "$matrix->[$x]->[$y] ";
}
print "\n\n";
}
for($i = 0; $i < 3; $i++){
print "@{$matrix->[$i]}", "\n\n";
}
$p=\$matrix; # Reference to a reference
print ${$p}->[1][2], "\n";