ive used your first example:
Instead of

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

use

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