print $load qq| <column-def name="$_" tyle="string" tokenizing=" "
searchable="yes" compress="no" wildcards="yes" />
| foreach @columns;
print $load qq| <column-def name="$_" tyle="string" tokenizing=" "
searchable="yes" compress="no" wildcards="yes" />
| foreach @columns;