my $ref = hoa2aoh($HoA); print Dumper $ref; #### $VAR1 = [ { 'flintstones' => undef, 'jetsons' => 'george' }, { 'flintstones' => undef, 'jetsons' => 'jane' } ];