foreach (my $word = <$inwp>) {
    $countp{$word}++ ;
}