Select Code to Download

  use Data::Dumper;
  print Dumper(\@Column_Info);

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