while ( my $poem = $rs->next ) {
    say sprintf(q{tobyink doesn't hate "%s" (%s)},
        $poem->artwork->name,
        $poem->artwork->artist->name,
    );
}