# while( $dl = <FH> )
      # foreach ( @entries )
         # foreach ( @members )
            # while( $curmem = <FH2> )
               # foreach ( @entries2 )
                  # if( grep /^$member$/, @current )