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