@USERlist = qw(@hash_tags);
        print "USERTAGS:@USERlist";
        @STATIClist = qw(@tags);
        $lc = List::Compare->new(\@USERlist, \@STATIClist);
        @valid_tag = $lc->get_intersection;
        print "VALID_TAG:@valid_tag";