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

my %booksByBorrower = (
    adam => {"Learning Perl" => {borrowed => '2015-12-17'}},
    jake => {"Programming Perl" => {borrowed => '2015-12-08'}},
    john => {"Programming Perl" => {borrowed => '2015-12-12'}},
    betty => {"High Order Perl" => {borrowed => '2015-12-10'}},
);

for my $name (sort keys %booksByBorrower) {
    print "$name\n";
    
    for my $book (sort keys %{$booksByBorrower{$name}}) {
        print "  Borrowed $book $booksByBorrower{$name}{$book}{borrowed}\n";
    }
}