http://www.perlmonks.org?node_id=548221


in reply to Re: parallel reading
in thread parallel reading

Nice approach. And my be merged with mine, e.g.:

#!/usr/bin/perl -l use strict; use warnings; my @fh=map { open my $fh, '<', $_ or die "Can't open `$_': $!\n"; $fh } @ARGV; no warnings 'uninitialized'; print while $_=join '', map { chomp(my $line=<$_>); $line } @fh, __END__

However:

Update: the second point was a thinko as Zaxo pointed out.