# Note that date data must consist of a date encased in # single quotes followed by a comma, then a date # format string encased in single quotes. For example: # '2002-05-30','YYYY-MM-DD' # or '05/30/2000:18:31','MM/DD/YYYY:HH:MM' foreach $name ( keys (%$r_datedata) ) { $column_str .= $name . ", "; if ( $$r_datedata{$name} eq "SYSDATE" ) { $value_str .= "SYSDATE, "; } else { $value_str .= "to_date(" . $$r_datedata{$name} . "), "; } }