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

##</code><code>##

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