my $first_line = <>;
my ($word1, $word2) = split /\s+/ => $first_line;
$_ = $first_line;
while (1) {
    # Your loop.
    $_ = <> err last;   # Defined-or!
}
[download]

Abigail