use List::Util qw(first);
if (defined(my $try = first { $hash{$_} } @options)) {
  do_something($try);
} else {
  log_failure();
}