Select Code to Download

use strict;
use warnings;
...
my @uniq = sort keys %comb;

print Data::Dumper->Dumpxs([\@uniq], [qw{*uniq}]);

@uniq = (
          'abc',
...
          'ghi',
          'jklm'
        );