note ChOas Hi!, <BR> <BR> Care to test this one aswell ? <BR> <BR> I had the following results (25143 words): <BR> <CODE> ChOas@xxx$ time ./yours words real 0m1.21s user 0m1.01s sys 0m0.07s ChOas@xxx$ time ./mine words real 0m0.68s user 0m0.54s sys 0m0.05s ChOas@xxx$ </CODE> <BR> This is the code: <CODE> #!/usr/bin/perl -w use strict; my %Word; my $File; # Fill the hash/list here, ignoring the chomp push @{$Word{length$_}},$_ while (<>); # Itterate over the different lenghts of words for (keys %Word) { # This is what is called a dirty hack, subtract # one from the length of the string to compensate # for the '\n' (but hey, it saves a chomp for every word :) ) $File=$_-1 . ".mine"; # Write the file open OUT,">$File" or die "Cannot open $File.mine: $!\n"; print OUT @{$Word{$_}}; close OUT; }; </CODE> <BR> p.s. You REALLY want to run/develop code with use strict; and -w...<BR> <BR> GreetZ!,<BR><UL>ChOas</UL> <BR> <FONT SIZE="1">print "profeth still\n" if /bird|devil/;</FONT> 153514 153514