{
  defined($_ = <STDIN>) or last for 
    my ($one, $two, $three, $four, $five); 
  .. process all five lines ..
  redo;
}

##</code><code>##

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