$ perl -MO=Deparse -e 'my $columnsum += $_->[$colnum] for @data;'
foreach $_ (@data) {
    my $columnsum += $$_[$colnum];
}