or download this
my $sthsql = $mysql_dbh1->prepare("INSERT INTO r501 (reg, pat, ped, ad
+nasec, impexp, cveped, adnaent, crupimp, rfcimp, curpaa, tc, flete, s
+eguro, embal, oincrem, odeduc, pesob, transal, tranarr, travent, dest
+ino, nomimp, calleimp, numimp, numext, cp, mcpio, entfed, paisimp, ar
+chivo)
VALUES (?)")
$sthsql->execute( join(', ' , @row) );