use Time::HiRes qw(gettimeofday tv_interval);
my $start_time = [gettimeofday];
$dbh->do('begin');
for my $i (1..1000) {
    $st1->execute($i, $i * 2);
    if ($i % 2) {
        $st2->execute($i, $i * 3);
    }
}
$dbh->do('commit');
my  $elapsed = tv_interval ( $start_time, [gettimeofday]);
print "creation time: $elapsed\n";

__END__
insertion time: 0.263462