my $posicionadores = join q{, }, ('?') x @row;
my $sentencia = <<"FIN";
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, umimp
, numext,  cp,      mcpio,   entfed,  paisimp,  archivo
)
VALUES ($posicionadores)
FIN
print "Vamos a decir:\n$sentencia\n";

my $sthsql = $mysql_dbh1->prepare($sentencia);

$sthsql->execute( @row );