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

use

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