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