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

##</code><code>##

my $arraySize = scalar @{ $arrayRef };
## In this case
my $arraySize = scalar @{ $channels{1} };

##</code><code>##

my $highestIndex = scalar @{ $arrayRef } - 1;

##</code><code>##

my $arrayRef = $channels{1};
my $arraySize = scalar @{ $arrayRef };
my $highestIndex = $#{ $arrayRef }; ## == $arraySize - 1;

for my $index ( 0 .. $highestIndex ) {
    print $channels{1}[ $index ]{c}, "\n";
}

##</code><code>##

$/ = "\n"; ## See also perl -l 

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