Select Code to Download

use strict;
use warnings;
...
}

print Dumper(\%cats);

$VAR1 = {
          'Channel456' => 'cat456',
          'chann678' => 'cat678',
          'CHANNEL123' => 'CATEGORY123'
        };