open (IF1,"$wordfile")|| die "cannot open the file";
open (PF, "$textfile")|| die "cannot open the file";
open (OF,">$OutPutFile")|| die "cannot open the file";