use List::Util qw( sum );

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

##</code><code>##

my $sum = 0;
for my $row (0..$#array) {
   $sum += $array[$row][$col];
}

##</code><code>##

      my $nextline = <FASTA>;
      if($nextline =~ /^(\S+)$/) {
        my $nextline = <FASTA>;
        if($nextline =~ /^\+(.*)\s/) {
          my $nextline = <FASTA>;
          if($nextline =~ /^(\S+)$/) {
            $qual = $1;

##</code><code>##

      my $nextline = <FASTA>;
      redo if $nextline !~ /^\S+$/;

      $nextline = <FASTA>;
      redo if $nextline !~ /^\+/;

      $nextline = <FASTA>;
      redo if $nextline !~ /^\S+$/;

      chomp( my $qual = $nextline );