Select Code to Download

use autobox::universal qw(type);
use Data::Dumper;
...
    }
}
warn Data::Dumper->Dump([\%hash],[qw(*hash)]),' ';

%hash = (
          '1' => [
...
                   4
                 ]
        );