Hi grinder, "Is there Another Way To Do It?" you ask. Here is my shot.

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

The rest of the code remains as was.
I hope this helps.

thinker