*Exasperated sigh*. I had to try it out. I got it right it seems all for the most important part. The one line should obviously read ++$seen{$word} unless ( exists( $banned{$word} ) );. Note the 'unless', not 'if'.