open(FILE, "<WordNet.txt");
my @array = <FILE>;
close(FILE);
open(FILE, ">>WordNetTest2.txt");
my @array2 = <FILE>;
print "Extracting adjectives\n";
foreach $_ (@array) {
         @array2 = grep {$_ =~ "adj : "} (@array);
                  print FILE "@array2";
                  close(FILE);
exit;
}