Hi All, How would I sort this hash in a hash by VAR1 keys and then VAR2 keys.

I have the following:

 
sub printIndex {
    for my $book ( sort keys %ibIndex ) {
        for my $keyword ( keys( %{ $ibIndex{ $book } } ) {
            my $pages = join( ', ', @{ $ibIndex{ $book }->{ $keyword }
+ } );
        }
    }
}
[download]

 
$VAR1 = 'Book 3';
$VAR2 = {
          'wormhole' => [
                        150
                      ],
          'World  Wide Web (WWW)' => [
                                     75,
                                     137,
                                     153
                                   ],
          'Wigner, Eugene P. (1902-1995)' => [
                                             200,
                                             200,
                                             203,
                                             208
                                           ],
          'World War II (WWII)' => [
                                   127
                                 ],
          'Work and play' => [
                             235
                           ]
        };

$VAR3 = 'Book 1';
$VAR4 = {
          'wormhole' => [
                        266
                      ],
          'Whistlefield Estate' => [
                                   64,
                                   73,
                                   74,
                                   96
                                 ],
          'wisdom' => [
                      134,
                      140,
                      161,
                      210,
                      240,
                      58
                    ],
          'Yost, Bill' => [
                          75,
                          88
                        ],
          '"winners," evolutionary (see "evolution," "natural selectio
+n")' => [
                                                                      
+        198,
                                                                      
+        199,
                                                                      
+        226,
                                                                      
+        2
                                                                      
+      ],
          'Wigner, Eugene P. (1902-1995)' => [
                                             32
                                           ]
        };

$VAR5 = 'Book 2';
$VAR6 = {
          'worldview' => [
                         343
                       ],
          'wisdom' => [
                      71,
                      130,
                      153,
                      220,
                      262,
                      265,
                      286,
                      313,
                      331
                    ],
          'will' => [
                    82,
                    117,
                    164
                  ],
          'World community' => [
                               344
                             ]
        };
[download]