foreach ($value, $key = each %texthash) {

##</code><code>##

while (($key, $value) = each %hash) {