Select Code to Download

(x,y)

-1,1      |     1,1
----------+----------  <-- origin (0,0)
-1,-1     |     1,-1

use strict;
my (@pp_grid, @pn_grid, @nn_grid, @np_grid, @input);
...
print " and here is 1,1: $pp_grid[1][1]\n";
print " and here is -1,1: $np_grid[1][1]\n";
print " and here is -1,-1: $nn_grid[1][1]\n";