Re: improve ugly flow control

[Aristotle]

The obvious answer is, of course, a labelled block.

TRY: {
    foreach my $try ( @options ) {
        next unless exists $hash{ $try };
        do_something( $try );
        last TRY;
    }

    log_failure();
}

[Pragma]

This would have been obvious 30 years ago; perhaps less so today:

foreach my $try (@options) {
  next unless exists $hash{$try};
  do_something($try);
  goto SUCCESS;
}

log_failure();

SUCCESS: ...