Select Code to Download

sub on_return {
        my ($self, $request, $response, $entry) = @_;
        .....Do some work, process data, register regex'd urls......
        $self->discard_entry($entry);

sub discard_entry {
    my ($self, $entry) = @_;
  LWP::Debug::trace("($entry)") if $entry;
...
    delete @$entries{grep $entries->{$_} == $entry, keys %$entries};
    return;
}