my @delList;
            my $cntr = 0;
            foreach my $element (@{$res}) {
                        my %count;
                        my @tag_list = split(/,/, $element->{tag_list});

                        for my $el (@user_tag_list, @tag_list) {$count{$el}++}

                        my (@union, @intersection, @difference);
                        for my $el (keys %count) {
                            push @union, $el;
                            push @{$count{$el} > 1 ? \@intersection : \@difference}, $el;
                        }
                        unless (@intersection) {
                            push(@delList, $cntr);
                        }
                        #end tag filter
                $cntr++;
            }
            splice @{$res}, $_, 1 for reverse @delList;