set rivcanais "#teste1 #teste2"

proc checar:whois {from key arg} {
    global rivcanais
    set nick [lindex $arg 1]
    set canais [string range [lrange $arg 2 end] 1 end]
    foreach canal $rivcanais {
        if {[string match $canal $canais]} {
                putserv "notice @#CanalTeste :(\037Wallops\037) $nick > $canal"
        }
    }
}