Evaluated proc ppl {} {set out ""; set ppls [array get ::irc_pics]; for {set i 0} {$i < [llength $ppls]} {incr i} {append out "\x02[lindex $ppls $i]:\x02 [lindex $ppls [+ $i 1]]"};. $out}