#!/usr/bin/perl
use DBI;

my $Master=DBI->connect("dbi:mysql:database=test;host=my.host.name;port=3544",'vita','') or die "Couldn't connect to database: " . DBI->errstr;

for ($i=15990;$i<15994;$i++){
for ($j=252; $j<256; $j++) {
for ($k=3940; $k<4050; $k++) {
$Master->do("insert into table1(col1, col2, col3) values ($i,$j, $k)") or die "Couldn't insert row: " . DBI->errstr;
}
}
};