my $col_spec = join( ",", sort keys %data );
my $val_spec = join( ",", map { $data{$_} } sort keys %data );
my $sql = "insert into my_table ($col_spec) values ($val_spec)";