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