Select Code to Download

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

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

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

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

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

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