Select Code to Download

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

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

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