print $chapter{book}{name}; #### #! perl -slw use strict; my %book = ( 'name' => 'abc', 'author' => 'monk', 'isbn' => '123-890', 'issn' => '@issn', ); my %chapter = ( 'book' => \%book, 'title' => 'xyz', 'page' => '90', ); print $chapter{book}{name}; __END__ C:\test>junk82 abc