$columnsum = 0;
$columnsum += $_->[$colnum] for @data;