open( INPUTFILE, "<WordNet.txt" ) or die "$!";

open( OUTPUTFILE, ">>WordNetTest2.txt" ) or die "$!";

grep {  /adj:/ and print OUTPUTFILE $prev,$_;$prev=$_  } (<INPUTFILE>);