Select Code to Download

use warnings;
use strict;
...
}

print Dumper \%collector;

$VAR1 = {
          'CRDX   7067' => [
...
                           ]
        };