if( exists $histogram{$word} ) {
    print "Found $word,  $histogram{$word} times\n";
}