while (my($word, $count) = $sth->fetchrow_array) {
    $tag{$word} = $count;
}