Does this make sense? my @words = gather { for =(open '/usr/share/dict/words' err die) { .=chomp; next if /<-[a-z]>/; /$re/ and take { word => $_, score => %scores{ .letters }.sum }; } } ==> sort { .<score> } is descending, { .<word>.length }, { .<word> };
Juerd -- http://convolution.nl/maak_juerd_blij.html http://convolution.nl/make_juerd_happy.html http://convolution.nl/gajigu_juerd_n.html