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