Talking to myself... the first sign of madness. If I change the grep from

my @wordlist = grep {length $_ > 3} @words;

to

  my @wordlist = grep {length $_ < 12} @words;

it works on all my test cases. Why twelve?

____________________
Jeremy
I didn't believe in evil until I dated it.