for $i (keys(%HoH)) {
    #the name must be kept with the subhash.
    $HoH{$i}{"name"} = $i;
    push @temp_array, $HoH
}
[download]

In the above for loop, the statement
    push @temp_array, $HoH
would appear to need to be
    push @temp_array, $HoH{$i};
to work (or to compile with strictures).