foreach my $key ( keys %hash ) { 
  while ( my ( $subkey, $value ) = each %{ $hash{$key} } ) { 
    $hash{ $subkey }{ $key } = $value;
  }
  delete $hash{ $key };
}