while(4 == grep { chomp($_ = <FH>); defined } my($name,$address,$phone,$fax)){
    # Do stuff
}