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