for (my $i=0; $pFuncsA[$i]->{command}; $i++) {
...

##</code><code>##

for (keys %channels) {