Re: Converting HoA into HoH

[BrowserUk]

Ths assumes that each array has an even number of elements.

my $HoH = { map{ $_ => { @{ $HoA->{$_} } }  } keys %{ $HoA } };

Update: I completely misread that. Here's the correct version.

my $HoH = { map{ $_ => { map{ $_ => } @{ $HoA->{$_} } }  } keys %{ $Ho
+A } };

Update2: And still it was wrong. I think you have your answer now, so I'll shut up.

[neversaint]

Dear BrowserUk,
Thanks a lot for the response. But your code above returns this only:

$VAR1 = {
          'flintstones' => {
                             'fred' => 'barney'
                           },
          'jetsons' => {
                         'george' => 'jane'
                       }
        };

Please correct me if I'm wrong. And also the size of the array may not be even.