#!/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";