sub chomp_all {
   my $sum = 0;
   foreach (@_) {
      my $c;
      $sum+= $c while $c = chomp;
   }
   return $sum;
}