Select Code to Download

 
sub printIndex {
    for my $book ( sort keys %ibIndex ) {
...
        }
    }
}

 
$VAR1 = 'Book 3';
$VAR2 = {
...
                               344
                             ]
        };