Select Code to Download

$HASH1 = {
           a => [
...
                  0
                ]
         };

use Data::Dump::Streamer;
$hoa = {a => [1,2],  'b'=>[1,3], c=> [2,0]};
print Dump($hoa);
 print "\n";