Select Code to Download

#!/usr/bin/perl 
use strict;     
...
3, 3, Cell D4   
1, 1, apple     
7, 0, flooglehorn

$ perl 974548.pl
T[0][0] = Cell A1
T[0][7] = bazooka
...
T[1][2] = banana
T[3][3] = Cell D4
T[7][0] = flooglehorn

# Then write the data into your spreadsheet in order
my $out_row=0;
...
    }
    ++$out_row;
}

$ perl 974548.pl
T[0][0] = Cell A1
...
T[1][2] = banana
T[2][3] = Cell D4
T[3][0] = flooglehorn