Select Code to Download

#!/usr/bin/perl
# fill two 25 x 25 arrays with zeros, then modify a couple of cells
...
print join(",", @{$row}), "\n";
}
exit;