#!/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();

##</code><code>##

#!/usr/bin/perl

open F, '>','list';
print F "id\n";
for (0..1000000) {
	print F $_.('z' x 10)."\n";
}
close F;