CODE:

putlog "Adding channels to Bot ${::env(IRC_CHANNELS)} "
foreach Channel [split ${::env(IRC_CHANNELS)} ,] {
  putlog "Adding channel ${Channel} to Bot"
  if { [lsearch [channels] ${Channel}] == "-1" } {
    channel add ${Channel} {
      idle-kick       0
      stopnethack-mode   0
      flood-chan       0:0
      aop-delay       0:0
    }
  }
}

OUTPUT:

Adding channels to Bot #Info,#Info.Add,#dev,#PECHO,#addinfo,#siteInfo,#newdir
Adding channel #Info to Bot
Adding channel #Info.Add to Bot
Adding channel #dev to Bot
Adding channel #PECHO to Bot
Adding channel #addinfo to Bot
Adding channel #siteInfo to Bot
Adding channel #newdir to Bot