Select Code to Download

foreach(@array1) { 
  $list=split(/,/,@array1,4);
    foreach($list) { 
      (@w,@x,@y,@z)=split(/ /,$list,1);}
}