Here i have pasted sample code in which i have various combinations being generated using multiple arrays. In the code , gen_loops() is ur nfor(). I want to be able to call gen_loops() for multiple number of array elements. 

@X = ("X1","X2","X3");
@Y = ("Y1","Y2","Y3");
@Z = ("Z1","Z2","Z3");

$HDR_SCHEMA_XY = "X::Y";
print_combinations($HDR_SCHEMA_XY);

$HDR_SCHEMA_XYZ = "X::Y::Z";
print_combinations($HDR_SCHEMA_XYZ);

sub print_combinations {
  my $sub_hdrs = shift;
  my @sub_hdrs = split(/::/,$sub_hdrs);
  my $subh_count=0;
  
  foreach my $i (@sub_hdrs) {
      @{"array_".$subh_count} =  @{ $i };
      $subh_count++;

  }
  gen_loops(2,\@array_0,\@array_1);
}

sub gen_loops {
    my $loop_count = shift;
    
    if ($loop_count==0) {
        print join "+",@_,"\n";
    } else {
                for my $i ( @{ shift() } ) {
         gen_loops($loop_count-1,$iter_count,@_,$i)
           }
    }
}

[download]

In reply to Re^8: Variable number of foreach loops by abhay180
in thread Variable number of foreach loops by abhay180

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.