sub addup {
  my $total = 0;
  $total += $_ foreach @_;
  return $total;
}