Select Code to Download

{
  defined($_ = <STDIN>) or last for 
...
  .. process all five lines ..
  redo;
}

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