foreach my $count (1..$tables) {
   my $sql =<<EOF;
....
EOF

    die ("Failed to insert row: " . DBI->errstr) if (!($dbh->do ($sql)));

}