Select Code to Download

perl -MData::Dumper -e '
$Data::Dumper::Indent = 0; 
$hoa = {a => [1,2],  'b'=>[1,3], c=> [2,0]}; 
print Dumper $hoa; print "\n";'

$VAR1 = {
        'c' => [2,0],
        'a' => [1,2],
        'b' => [1,3]
       };