Select Code to Download

use strict;
use warnings;
...

local $Data::Dumper::Sortkeys = 1;
print(Dumper($hash));

$VAR1 = {
          'k1' => [
...
                    1
                  ]
        };