use warnings; while ($line = ){ chop($line); ($a,$b,$c,$d,$e,$f,$g)=split(",",$line); no warnings qw(numeric); $sum = ($a+$b+$c+$d+$e+$f+$g); print $sum; } __END__ 86f,934e,92,102i,14,19,222,