for my $author (keys %book) {
  print FILE $author;
  while (my ($book,$borrow) = each %{$book{$author}}) {
     print FILE ':' . $book;
     print FILE '/' . $borrow if $borrow;
  }
  print FILE "\n";
}