Select Code to Download

use strict;
use warnings;
...
push @{$colHash{$colA[$_]}}, $colC[$_] for 0 .. $#colA;

Dump (\%colHash);

$HASH1 = {
           a01 => [
...
                    10
                  ]
         };