#!/usr/bin/perl

use DBI;

our $st = DBI->connect('DBI:CSV:f_dir=.',{RaiseError=> 1});
my $check = $st->prepare(q{
    SELECT COUNT(*) FROM list
    WHERE id=? LIMIT 1
});
my $a = 0;
while ($a++ < 1000000) {
	$check->execute($a.('z' x 10));
	print $a.('z' x 10)."\n";
}

$check->finish();
$st->disconnect();