Help for this page
... for my $file (@files) { ... close $fh; } ...
... my @handles = map { open my $fh, '<', $_; $fh } @files; ... close $_ for grep { $_->opened() } @handles; ...
www.com | www.net | www.org
No recent polls found