for ("john", "jacob", "jingleheimer") {
  $total{$_} = ...;
}