Select Code to Download

for (@b){$a[1]=$_;say:}

my @a=();
foreach $a[0](`cat file`){
...
  foreach $a[2](grep (/4/, @c)){
   <More statements>
}}}

my @a=();
foreach (`cat file`){
...
   $a[2]=$_
   <More statements>
}}}