title: How can I iterate over multiple lists at the same time in Perl?
body: <p>I need to create a text file <strong>(aptest.s)</strong> that Ican use to read into another program. I am using Perl because I have a large list to work from. My code is as follows (which does not give the desired output - shown after code and actual output). Any help would be appreciated.</p>
  
  <pre><code>#!/usr/bin/perl -w
  chdir("D://projects//SW Model ODME");
  @link = ("319-116264||319-118664","320-116380||320-116846","321-119118||321-119119","322-115298||322-119087");
  @link1 = ("116264-319||118664-319","116380-320||116846-320","119118-321||119119-321","115298-322||119087-322");
  open (FSAS, "&gt;&gt;aptest.s");
  foreach $link (@link) {
      foreach $link1 (@link1){
      print FSAS "other code \n";
      print FSAS "PATHLOAD SELECTLINK=(Link=".$link."), VOL[2]=MW[1] \n";
      print FSAS "PATHLOAD SELECTLINK=(Link=".$link1."), VOL[3]=MW[2] \n";
      print FSAS "other code \n";
  }
  }
  </code></pre>
  
  <p><strong>Actual Output</strong> :</p>
  
  <pre><code>other output
  PATHLOAD SELECTLINK=(Link=319-116264||319-118664), VOL[2]=MW[1] 
  PATHLOAD SELECTLINK=(Link=116264-319||118664-319), VOL[3]=MW[2] 
  other output 
  
  other output
  PATHLOAD SELECTLINK=(Link=**319-116264||319-118664**), VOL[2]=MW[1] 
  PATHLOAD SELECTLINK=(Link=**116380-320||116846-320**),      VOL[3]=MW[2] 
  other output
  </code></pre>
  
  <p><strong>Desired Output</strong></p>
  
  <pre><code>other output
  PATHLOAD SELECTLINK=(Link=319-116264||319-118664), VOL[2]=MW[1] 
  PATHLOAD SELECTLINK=(Link=116264-319||118664-319), VOL[3]=MW[2] 
  other output
  
  other output
  PATHLOAD SELECTLINK=(Link=**320-116380||320-116846**), VOL[2]=MW[1] 
  PATHLOAD SELECTLINK=(Link=**116380-320||116846-320**), VOL[3]=MW[2] 
  other output
  </code></pre>