my $sum;
                                                                       
open(FILE, "<$filename") || die "file $filename can't open : $!";
while(<FILE>) { $sum += ( split /\s+/ )[37]; }
close FILE;
print $sum;

##</code><code>##

shell> perl -naF\s+ -e "$sum+=$F[2]; END{print $sum}" file