my $columnsum += $_->[$colnum] for @data;
print "Total value = $columnsum";