Someone

foreach $a (qw(Profile RaiseError PrintError AutoCommit)) { # do these first
                next unless  exists $apply->{$a};
                $dbh->{$a} = delete $apply->{$a};