use List::Util qw( sum ); my $sum = sum map { $array[$_][$col] } 0..$#array; #### my $sum = 0; for my $row (0..$#array) { $sum += $array[$row][$col]; } #### my $nextline = ; if($nextline =~ /^(\S+)$/) { my $nextline = ; if($nextline =~ /^\+(.*)\s/) { my $nextline = ; if($nextline =~ /^(\S+)$/) { $qual = $1; #### my $nextline = ; redo if $nextline !~ /^\S+$/; $nextline = ; redo if $nextline !~ /^\+/; $nextline = ; redo if $nextline !~ /^\S+$/; chomp( my $qual = $nextline );