note johngg <p>As [MidLifeXis] [id://992351|points out], you need to [doc://chomp] your newlines.</p> <code> $ perl -E ' > open my $fa, q{<}, \ <<EOF1 or die $!; > file A line 1 > file A line 2 > EOF1 > > open my $fb, q{<}, \ <<EOF2 or die $!; > file B line 1 > file B line 2 > EOF2 > > say join q{,}, > map { chomp; $_ } scalar <$fa>, scalar <$fb>;' file A line 1,file B line 1 $ </code> <p>I hope this is helpful.</p> <p><b>Update: </b>A more complete example putting the <c>$fa</c>, <c>$fb</c> and <c>$fc</c> filehandles in an array and showing how you might cope if they contain fewer lines than <c>$fi</c> using [doc://eof].</p> <code> $ perl -Mstrict -Mwarnings -E ' > open my $fi, q{<}, \ <<EOFi or die $!; > File I Line 1 > File I Line 2 > File I line 3 > EOFi > > open my $fa, q{<}, \ <<EOFa or die $!; > File A Line 1 > File A Line 2 > EOFa > > open my $fb, q{<}, \ <<EOFb or die $!; > File B Line 1 > File B Line 2 > File B Line 3 > EOFb > > open my $fc, q{<}, \ <<EOFc or die $!; > File C Line 1 > File C Line 2 > File C Line 3 > File C Line 4 > EOFc > > my @slaveFHs = ( $fa, $fb, $fc ); > while ( <$fi> ) > { > chomp; > say join q{,}, $_, > map { chomp; $_ } > map { eof $_ ? q{--eof--} : scalar <$_> } > @slaveFHs; > }' File I Line 1,File A Line 1,File B Line 1,File C Line 1 File I Line 2,File A Line 2,File B Line 2,File C Line 2 File I line 3,--eof--,File B Line 3,File C Line 3 </code> <!-- Node text goes above. Div tags should contain sig only --> <div class="pmsig"><div class="pmsig-401112"> <p>Cheers,</p><p>JohnGG</p> </div></div> 992345 992345