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