my @data = ['Project', 'HW1', 'HW2', 'HW3', 'MidTerm', 'Final'],
            [25, 6, 7, 2, 25, 35];
print $data[0][1] "\n";   # first row second column