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

##</code><code>##

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