# As ubiquitous as hashes are in Perl, the DBI API does not
 # offer a way to commit hashes to disk.
 # @::order_data consists of the field names of my database
 # in order
 sub fiddle_with_my_data_to_get_it_to_work_with_the_DBI_API {

   my @output_data;
   for (@::order_data) {
     push @output_data, $dbh->quote
       (
        defined($::uregister->{$_}) 
        ? $::uregister->{$_} 
        : $::profile{$_}
       );
   }

   $::INSERT_TERM=join ',', @output_data;
 }