DBD-DBM too slow

[ManKyu Han]

Hi.  I installed DBD::DBM through cpan and everything seems fine.
I wanted to benchmark DBD::DBM's performance, so I did simple test.
I populate table that I created with 200000 integer and strings.
In mysql, it was going almost 7000 inserts / sec
but in DBD::DBM,  the best I could get was 130/sec

Is there some optimization that I should do?

Is it possible to use something like Mmap to speed up DBD::DBM?

Here is my source code.
Thanks.

#######################################
# This will create Table
#######################################
use DBI;
my $dbh = DBI->connect('dbi:DBM:');
$dbh->{RaiseError} = 1;
my $sth = $dbh->do("CREATE TABLE dbmInt (id INTEGER, input TEXT)");
my $sth = $dbh->do("CREATE TABLE dbmChar (id CHAR(4), input TEXT)");
$dbh->disconnect;

#####################################
# This will populate Table
# mkUtil is nothing but collection of simple functions like random number 
generator 
#   and printing time and messages..
####################################3
use DBI;
use mkUtil;
my $dbh = DBI->connect('dbi:DBM:');
$dbh->{RaiseError} = 1;

my (@sql_c, @sql_i);
my $id = 0;
mkUtil::printTime( "DBM: Start Generating SQL Command String");
foreach my $cid ('aaaa'...'gzzz'){
        push(@sql_c, "INSERT INTO dbmChar (id, input) VALUES ('$cid', 
'DummyTest')");
        push(@sql_i, "INSERT INTO dbmInt (id, input) VALUES ($id, 
'DummyTest')");
        $id++;
}
mkUtil::printTime( "DBM: Finished Generating SQL Command String");

my $count = 0;
my $startTime = mkUtil::printTime( "DBM: INT Insert Start");
foreach my $sql (@sql_i){
        my $sth = $dbh->prepare($sql);
        $sth->execute;
        $count++;
        if($count%2000 eq 0){
                mkUtil::printTime("$count");
        }
}
my $endTime = mkUtil::printTime( "DBM: INT Insert END");
mkUtil::printAVG(123032, ($endTime - $startTime), "DBM: INT Insert AVG (sec)");
$dbh->disconnect;


##################################3
# This will read data (randomly) from table
####################################
use DBI;
use mkUtil;
my $dbh = DBI->connect('dbi:DBM:');
$dbh->{RaiseError} = 1;
my $time = 10;
if(defined $ARGV[0]){
        $time = $ARGV[0];
}
my $count =  0;
my $startTime = mkUtil::printTime("DBD::DBM:: Integer Select Start");
my $endTime = mkUtil::getTime();
while($endTime - $startTime < $time){
        my %r = mkUtil::strRand();
        my $rInt = $r{'integer'};
        my $ary = $dbh->selectall_arrayref("SELECT * FROM dbmInt WHERE id = 
$rInt");
        foreach $item (@{$ary}){
                foreach $inside (@{$item}){
#                       print "$inside\n";
                }
        }
#       sleep(1);
        $endTime = mkUtil::getTime();
        $count++;
}
$endTime = mkUtil::printTime("DBD::DBM:: Integer Select End");
print "COUNT: $count\n";
mkUtil::printAVG($count, $time, "DBD::DBM:: Integer Select AVG (sec)");
$count = 0;
$startTime = mkUtil::printTime("DBD::DBM:: Char Select Start");
$endTime = mkUtil::getTime();
while($endTime - $startTime < $time){
        my %r = mkUtil::strRand();
        my $rChar = $r{'string'};
        my $ary = $dbh->selectall_arrayref("SELECT * FROM dbmChar WHERE id = 
'$rChar'");
        foreach $item(@{$ary}){
                foreach $inside (@{$item}){
#                       print "$inside\n";
                }
        }
#       sleep(1);
        $endTime = mkUtil::getTime();
        $count++;
}
$endTime = mkUtil::printTime("DBD::DBM:: Char Select End");
print "COUNT: $count\n";
mkUtil::printAVG($count, $time, "DBD::DBM:: Char Select AVG (sec)");
$dbh->disconnect;