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