sub handle_options
{
    my ($hash, $options, $subref) = @_;

    foreach my $try (@$options)
    {
        next unless exists $hash->{$try};
        $subref->( $try );
        return;
    }

    die;
}

eval {
    handle_options( \%hash, \@options, \&do_something );
}; if {$@) {
    log_failure();
}

##</code><code>##

eval {
    handle_options( \%hash1, \@options1, \&do_something1 );
    handle_options( \%hash2, \@options2, \&do_something2 );
    handle_options( \%hash3, \@options3, \&do_something3 );
}; if ($@) {
    log_failure();
}