Select Code to Download

use warnings;
use strict;
...
}

print Dumper \%combined;

$VAR1 = {
          'b' => [
...
                   12
                 ]
        };