#!/usr/bin/perl -w

$a = [
   [' ',' ',' ','#','#','#',' ',' ',' '],
   [' ',' ','#','#',' ','#','#',' ',' '],
   [' ','#','#',' ',' ',' ','#','#',' '],
   ['#','#',' ',' ',' ',' ',' ','#','#'],
   ['#','#','#','#','#','#','#','#','#'],
   ['#','#',' ',' ',' ',' ',' ','#','#'],
   ['#','#',' ',' ',' ',' ',' ','#','#']
     ];
print "$a->[4][0]\n";