foreach $key (keys %hshFoo) {
   print "  $key => \n";
   foreach $key2 (keys %{$hshFoo{$key}}) {
     print "     $key2 => $hshFoo{$key}{$key2}\n";
   }
}