in reply to Merging of custom array

Here is another solution using map for the inner loop. Note the use of 'say'. The newline would have been a problem with print. 
>type anirbanphys2.pl
use strict;
use warnings;
use feature 'say';
my @cell_file = qw( c_1_mm c_2_mm c_3_mm c_4_mm );
my @pvt_file = qw( 1 2 3 4 5 6 7 8 9 0 );

foreach my $pvt (@pvt_file) {
    say map { "${_}_$pvt "} @cell_file;
}


>perl anirbanphys2.pl
c_1_mm_1 c_2_mm_1 c_3_mm_1 c_4_mm_1
c_1_mm_2 c_2_mm_2 c_3_mm_2 c_4_mm_2
c_1_mm_3 c_2_mm_3 c_3_mm_3 c_4_mm_3
c_1_mm_4 c_2_mm_4 c_3_mm_4 c_4_mm_4
c_1_mm_5 c_2_mm_5 c_3_mm_5 c_4_mm_5
c_1_mm_6 c_2_mm_6 c_3_mm_6 c_4_mm_6
c_1_mm_7 c_2_mm_7 c_3_mm_7 c_4_mm_7
c_1_mm_8 c_2_mm_8 c_3_mm_8 c_4_mm_8
c_1_mm_9 c_2_mm_9 c_3_mm_9 c_4_mm_9
c_1_mm_0 c_2_mm_0 c_3_mm_0 c_4_mm_0

[download]
Bill

Replies are listed 'Best First'.
Re^2: Merging of custom array
by jwkrahn (Abbot) on Jul 19, 2019 at 19:40 UTC
    The newline would have been a problem with print.

    Not if you set the OUTPUT_RECORD_SEPARATOR like say() does: 

    local $\ = "\n";

    [download]
[reply]
[d/l]
      set the OUTPUT_RECORD_SEPARATOR like say() does

      I was surprised by this, and then noticed that you were referring to the say docs. However, IMHO they're wrong, say doesn't seem to set a local $\, so I just filed bug #134298 to hopefully clarify/fix the documentation.

      Update: A patch has been applied, the say docs in the next release will say:

      Just like print, but implicitly appends a newline at the end of the LIST instead of any value $\ might have.
[reply]

In Section Seekers of Perl Wisdom