foreach my $entry (@file) {
  chomp $entry;
  warn "Looking up '$entry'";

  ...
};