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

print ("$value has a key of $key");

}