my $grid=[ map {[  map {$init} 1..9   ]}   1..9  ];