Select Code to Download

#!/usr/bin/env perl
use strict;
...
}

print Dumper \%book_author, \%author_books_HoA;

$VAR1 = {
          'book 1 by Author_name' => 'Author_name',
...
                            'book 1 by new'
                          ]
        };