gistfile1.pl

while (my ($sense, $sense_info) = each %sense_information_hash) {
  print "\nKey => $sense\n";
  print " Count(sense) => $sense_info->[0]\n";

  while (my ($word, $count) = each %{ $sense_info->[1] }) {
    print " Word wt sense => $word\n";
    print " Count => $count\n";
  }
}