while (my ($name,$address,$phone,$fax) = (<FILE>, <FILE>, <FILE>, <FILE>)) {
    #work with named vars (don't forget chomp)
}