my @file = <INFO>;
foreach my $entry (@file) {
...
};

##</code><code>##

foreach my $entry (<INFO>) {
...
};

##</code><code>##

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

  ...
};