Ho trovato il problema..

L'array "testo" si vede che viene duplicato x volte e quindi mi occupa un sacco di spazio.. ora devo trovare un altro sistema

codice:
open (FILE, "file.txt");
my @testo = <FILE>;
close (FILE);

...

foreach my $each (@testo) {
           ....
            chiamo i thread ecc ecc
           ....
}