my @array = ( [0,0], [0,1], [1,0], [1,1] );
for (my $x=0; $x<4; $x++)
{
  for (my $y=0; $y<2; $y++)
  {
    printf "%d,%d = %n", $x, $y, $array[$x][$y];
  }
}