foreach my $book (@$books) {
    print "$book->{'asin'} \n";
}