Групповой объект Perl дочерними узлами

Question

У меня есть объект в формате, показанном ниже, и мне нужно сгруппировать их по доступным месяцам. 1000, 2000, ect. представляют собой суммы в долларах, а следующий уровень (6, 4) - месяцы.

Мой Объект:

$VAR1 = { 
      '1000' => { 
         '6' => { 
           'APR' => '13.9' 
          }, 
         '4' => { 
           'APR' => '11.9' 
          } 
        }, 
      '2000' => { 
         '6' => { 
           'APR' => '13.9' 
          }, 
         '4' => { 
           'APR' => '11.9' 
          } 
        }, 
      '4000' => { 
         '6' => { 
           'APR' => '13.9' 
          }, 
         '4' => { 
           'APR' => '11.9' 
          } 
        } 
      '5000' => { 
         '6' => { 
           'APR' => '13.9' 
          } 
        } 
     }; 

Объект I Want:

$VAR1 = { 
    '6' => { 
      '1000', 
      '2000', 
      '4000', 
      '5000' 
      }, 
    '4' => { 
      '1000', 
      '2000', 
      '4000' 
      } 
} 

Answer 1

my %new_hash; 
for my $amount (sort { $a <=> $b } keys(%$VAR1)) { 
    for my $month (keys(%{ $VAR1->{$amount} })) { 
     push @{ $new_hash{$month} }, $amount; 
    } 
}