use List::Util qw( sum );

my $sum = sum map { $array[$_][$col] } 0..$#array;