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

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


sub FudgeEntries {
    my( $entriesRef, $removemem  ) = @_;
    for my $entry ( @$entriesRef ){
        my @members = GetMembers( $entry );
        FudgeMembers( \@members, $removemem )
    }
}
sub FudgeMembers {
    my( $membersRef, $removemem  ) = @_;
    ...
}