return sort 

sub all_authors {
    my %authors;
    foreach my $book (@_) {
        $authors{$_}++ foreach $book->authors;
    }
    return sort keys %authors;
}

say $_ foreach all_authors(@books);

Jon Stephenson
Leo Tolstoy
Nicky Hager
Wilbert Awdry