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