my $dbhX1 = DBI->connect('dbi:XBase(RaiseError=1):');

my $select1 = $dbhX1->prepare("SELECT * FROM r501");
$select1->execute();
print "\nEjecutar SELECT de r501\n";

    my $mysql_dbh1 = DBI->connect("DBI:mysql:database=$datafilename;host=localhost",
                         "root", "xyz123",
                        {'RaiseError' => 1});
while  ( (my @row) = $select1 -> fetchrow_array() ){


    my $sthsql = $mysql_dbh1->prepare ("INSERT INTO r501 (reg, pat, ped, adnasec, impexp, cveped, adnaent, crupimp, rfcimp, curpaa, tc, flete, seguro, embal, oincrem, odeduc, pesob, transal, tranarr, travent, destino, nomimp, calleimp, numimp, numext, cp, mcpio, entfed, paisimp, archivo)
                                       VALUES ($row[0], $row[1], $row[2], $row[3], $row[4], $row[5], $row[6], $row[7], $row[8], $row[9], $row[10], $row[11], $row[12], $row[13], $row[14], $row[15], $row[16], $row[17], $row[18], $row[19], $row[20], $row[21], $row[22], $row[23], $row[24], $row[25], $row[26], $row[27], $row[28], $row[29], $row[30]")
}