for my $i ( 0..$#p ) {
  for my $j ( $i+1..$#p ) {
     $h{$p[$i]+$p[$j]} .= "=$p[$i]+$p[$j]";
     for my $k ( $j+1..$#p ) {
        $h{$p[$i]+$p[$j]+$p[$k]} .= "=$p[$i]+$p[$j]+$p[$k]";
        for my $l ( $k+1..$#p ) {
           $h{$p[$i]+$p[$j]+$p[$k]+$p[$l]}
              .= "=$p[$i]+$p[$j]+$p[$k]+$p[$l]";
           for my $m ( $l+1..$#p ) {
              $h{$p[$i]+$p[$j]+$p[$k]+$p[$l]+$p[$m]}
                 .= "=$p[$i]+$p[$j]+$p[$k]+$p[$l]+$p[$m]";
              for my $n ( $m+1..$#p ) {
                 $h{$p[$i]+$p[$j]+$p[$k]+$p[$l]+$p[$m]+$p[$n]}
                    .= "=$p[$i]+$p[$j]+$p[$k]+$p[$l]+$p[$m]+$p[$n]";
              }
           }
        }
     }
  }
}