Select Code to Download

unique key poem_artwork_uk (artwork_id)

unique key poem_name_artwork_uk (name, artwork_id)

my $poem = $db->resultset('Poem')->search(
    {
...
    poem_id => { '!=' => $poem->poem_id },
})->all;