Select Code to Download

foreach $key(keys %tagcorpus){ 
  print "\n$key";
  return($key);
 }

else
else
...
else
else
else

 while ( ($k,$v) = each %tagcorpus ) {
   print "$k => $v\n";
}

else => 1
on => 1
...
is => 1
nowhere => 1
be => 1

open CF, '+<c.txt' or die $!;

...
                               
   close CF;

else on earth Here noun me am verb rather this Theres advb Id I is now
+here be

i.e noun against Here
    verb against am
    advb against Id