#!/usr/bin/perl
use strict;
use warnings;

my %book = (
    name    => 'ABC - an adventure',
    author  => 'monk',
    isbn    => '123-890',
    issn    => '@issn',
    chapter => [],
);

$book{chapter}[1] = {
    name => 'Testing Times',
    page  => 2,
};

$book{chapter}[2] = {
    name => 'Importing Hash',
    page => 99,
};

print "$book{name}\n";

my $i = 1;
while (exists $book{chapter}[$i]) {
    print "Ch: $i '$book{chapter}[$i]{name}' ($book{chapter}[$i]{page})\n";
    $i++
}

##</code><code>##

ABC - an adventure
Ch: 1 'Testing Times' (2)
Ch: 2 'Importing Hash' (99)