for (sort keys %hoaoa){
   print "$_: ";
   for(@{ $hoaoa{$_} }){
      for ($_){
         print "[" . (join ',', @$_) . "]";
      }
    }
    print "\n";
};