printf "%s %5d\n", $word, $seen{$word}; #word frequency