my $channels = "#gross_people #skriptk1dd13\$ #trolls";
my %banned;
@banned{split " ", $channels} = (1);

foreach (@banned_channels) {
    if (exists($banned{$_})) {
        IRC::print "match: $_";
    }
}