$sql = "show columns from my_table"; execute while (there are $field_names) { print "" } #### $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; }