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

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

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


##</code><code>##


open (my $nwt , "<:encoding(utf8)" , "$ntw" ) or die "$ntw: $!" ;

while (<$itw>) {

  $numlinenw++ ;

my @nwords ;
my @ntw ;
my $elementn ;
my $countn ;


@nwords = split (/\n/ , $nwt) ;