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 (?)")

$sthsql->execute( join(', ' , @row) );