my $ref = hoa2aoh($HoA);
print Dumper $ref;