#!/usr/local/bin/perl
use strict;
use DBI;
use DBD::SQLite;
use Benchmark;
my $dbh = DBI->connect("dbi:SQLite:dbname=testdb","","");

print "Connected to Database OK.\n";
print "Creating Tables && INSERTING\n";

my $sql = qq{CREATE TABLE A (A INT, B VAL)};
my $sth = $dbh->prepare($sql);
$sth->execute();

my $i=0;
while ($i<10000){
  my $sql = qq{INSERT INTO A(A,B) VALUES (?,?)};
  my $sth = $dbh->prepare($sql);
  $sth->execute($i,$i);
  $i++;
}
print "DONE\n";


sub doSelect{
  # Yes, I could pre cache the query, but this won't affect the results
  my $sql = qq{SELECT A FROM A WHERE B = ?};
  my $sth = $dbh->prepare($sql);
  my $i =int( rand 10000);
  
  $sth->execute($i);
  my @ary = $sth->fetchrow_array();
}
timethese (10000,{'MethodOne'=>'&doSelect'});

my $sql2 = qq{CREATE INDEX FOO ON A(B)};
my $sth2 = $dbh->prepare($sql2);
$sth2->execute();

timethese (10000,{'MethodOne'=>'&doSelect'});