%hash = {
          'chapter' => {
                       'subchap1' => {
                                     'p' => 'sathish is a good bou',
                                     'content' => 'sathish is good boy or not
'
                                   },
                       'content' => 'sathish
'
                     }
        };
%hash1 = {
          'chapter' => {
                       'subchap1' => {
                                     'p' => 'para',
                                     'content' => 'body
'
                                   },
                       'content' => 'head
'
                     }
        };
i want the output as shown below 
%hash= {
          'head'=> {
                       'body' => {
                                     'para' => 'sathish is a good bou',
                                     'content' => 'sathish is good boy or not
'
                                   },
                       'content' => 'sathish
'
                     }
        };


##</code><code>##

my $areEqual=1;
if(keys %hash == keys %hash1) {
    foreach my $key(keys %hash) {
        if(!exists $hash1{$key}) {
             $areEqual=0;
             last;

        }
    }
}