for my $dbh ( @dbf ) {
    die $@ if ! eval "use $dbf; 1";
}