open (my $inwp , "<:encoding(utf8)" , "$pwt") or die "$pwt: $!" ;
while (<$inw>) {

my @pwords ;
my @ptw ;
my $elementp ;
my $countp ;

  @pwords = split (/\n/ , $inwp) ;