##
$public_names{$field_1} = "foo";
$public_names{$field_2} = "bar";
foreach $key (keys %public_names) {
print ""
}
####
$sql = "show columns from my_table";
execute
while (there are $field_names) {
$public_name = &encode($field_name);
print ""
}
sub encode() {
$scrambled =~ tr/[a-z]/[w,t,5,s,c,....,7,a]/;
return $scrambled;
}