log_failure()
    unless grep {
        exists($hash{$_})
        && do_something($_)
        .. 1
    } @options;

##</code><code>##

grep {
    exists($hash{$_})
    && do_something($_)
    .. 1
} @options or log_failure();

##</code><code>##

$ perl -Mstrict -we'my $s=1;for(qw/foo bar baz/){ print if /b/..$s }'
barbaz$ 
$ perl -Mstrict -we'my $s=1;for(qw/foo bar baz/){ print if $s../b/ }'
$ 

##</code><code>##

$ perl -e'for (qw/foo bar baz blah/){print int scalar(/b/..//)}'
0111$ 

##</code><code>##

{
    my $success;
    grep {
        ! $success
        && exists($hash{$_})
        && do_something($_)
        .. ($success = 1)
    } @options
        or log_failure();
}