print "\n ** keyword: $item\n\n";

# and
print "    $names[$features] = $values{$item}[$features]\n";