Select Code to Download

$ perl -MData::Dumper -e"%h=(a=>{1..4},b=>{5..8});print Dumper\%h"
$VAR1 = {
...
                 }
        };

use strict;
use warnings;
...
}

print Dumper \%hash;