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