Select Code to Download

name1
address1
...
address2
phone2
fax2

for($i=0;$<scalar(@slurpedarray);$i+=4){
  # work with $slurpedarray[$i], $slurpedarray[($i+1)],
  # $slurpedarray[($i+2)] and $slurpedarray[($i+2)]
}

while(@slurpedarray){
  ($name,$address,$phone,$fax) = splice(@slurpedarray,0,3)
  # work with nice named vars
}