my %matched;
@matched{@STATIClist} = ();

print "Valid tags:\n";
print "\t$_\n" for grep { exists $matched{$_} } @USERlist;

##</code><code>##

my @valid_tag = grep { exists $matched{$_} } @USERlist;