#! /usr/bin/perl -w

use strict;

my @AoH=( { chapter => "Basic",        
            page  => [
                { paragraph => "lesson1"},
                { paragraph => "lesson2"}
            ]
           },
           { chapter => "Advanced",
             page  => [
                 { paragraph => "lesson3"},
                 { paragraph => "lesson4"}
             ]
           }
        );

foreach my $ch (@AoH) {
    print $ch->{'chapter'}, "\n";
    my $page = $ch->{'page'};

    foreach my $paras (@$page) {
        print "\t", $paras->{'paragraph'}, "\n";
    }
}