Re^2: improve ugly flow control (goto considered useful)

[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: ...