场景：Perl 的 Hash of Hash
目的：打印 Hash of Hash

定义HoH表

%HoH = (
  flintstones => {
  husband => "fred",pal => "barney",},jetsons => {
  husband => "george",wife => "jane","his boy" => "elroy",# Key quotes needed.
 },simpsons => {
  husband => "homer",wife => "marge",kid => "bart",);

伪代码：
foreach the collections
   get the family name
   for the family
       get the family roles
       then print the member(key/values)

编写内层代码：

#implement the inner loop
for $roles (keys % {$HoH{$family}}) {
  print "\t $roles => $HoH{$family}{$roles},\n";
 }

套上外层代码：

for $family (keys %HoH) {
 print "$family=> {\n";
 for $role (keys % {$HoH{$family}}) {
  print "\t $role => $HoH{$family}{$role},\n";
 }
 print "},\n";
}

例子虽然简单，但是展示了代码大全的建议，伪代码的编写，编程格式以及在编码碰到问题时，如何降低思维复杂度等思路。