#!/usr/bin/perl

@LoL = (['0,0', '0,1', '0,2'],
        ['1,0', '1,1', '1,2'],
        ['2,0', '2,1', '2,2']);

print "$LoL[0]->[1]\n";
print "$LoL[2][1]\n\n";

foreach my $row (0 .. 2)
{

  foreach my $column (0 .. 2)
  {

    print "$LoL[$row][$column] ";

  }

  print "\n";

}