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