#! /usr/bin/perl

use strict;
use warnings;
use DBI;

my $dbh = DBI->connect('DBI:ODBC:driver=Microsoft Access-Treiber (*.mdb);dbq=db1.mdb',user,pass);

my $statement = 'INSERT INTO table (ID,description) VALUES(?,?)';
my $sth = $dbh->prepare($statement);

for(2..1000){
  $sth->execute($_,'x' x $_) or die $dbh->errstr();
}