Select Code to Download

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

while( $dl = <FH> ){
  my @entries  = GetEntries( ... );
  FudgeEntries( \@entries, $removememfilepath   );
}

sub FudgeEntries {
...
    my( $membersRef, $removemem  ) = @_;
    ...
}