my $last_word;

sub process_word {
  my $word = shift;
  ...process it...
  $last_word = $word;
}

for every word in the file {
  process_word($word);
}