[Perl] script

[sondrobe]

Hola:
    Estoy haciendo un script para pasar unos datos desde una base de dato=
 de
(t=E1pense los ojos!!..) Access, que estoy migrando a Mysql, y estoy haci=
endo
con cada resgitro lo siguiente

[...]
#! E:\lenguajes\perl\bin\perl.exe

open (arch,"< archivo.txt") or die "no se puede abrir el arch";
open (nuevo,"> nuevo.sql") or die "no se puede abrir el archivo";

while ($fila =3D <arch>){
 $datos =3D "insert into usuarios values (".$fila.");" ;
 print nuevo "$datos";
}
close (arch);
close (nuevo);
[...]
    Bueno con esto, a cada resgistro le concateno el texto que quiero
adosarle, pero esto estar=EDa bien si es que los campos de ambas bases de=
 dato
estar=EDan exactamente igual, lo que no ocurre, por ello quer=EDa ver la
posibilidad de hacer un script que vaya hasta una cierta "," x, y a parti=
r
del delimitador poder saltar otro x's registros y seguir concatenando.
    Espero m=E1s que alguien pueda brindarme ayuda haber sido expl=EDcito=
 en mi
relato, desde ya muchas gracias.

PD: el comando split hay que asignarlo a un array o a una variable com=FA=
n??..