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