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