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