print $channels{1}[ $_ ]{c} for 0 .. $#{ $channels{1} };