Hola, estoy elaborando un programa que me separe una lista de bases nitrogenadas en codones (tríos de bases). Para ello he elaborado este código. El problema está en que el archivo 20 tiene todo lo que tienen los archivos anteriores más lo que le correspondería por sí mismo. ¿Cómo lo soluciono?
$contador = 0;
@codon = ();
while ( $contador < 20 ) {
$contador += 1;
$espermatozoide = "espermatozoide$contador.txt";
open( FH, "$espermatozoide" ) ...