{ defined($_ = <STDIN>) or last for my ($key, $value);
  $hash{$key} = $value;
  redo;
}