Select Code to Download

sub update_table{
    my $l_tablename = shift;
...
    my $l_fieldvalues = join ",", values %l_fields;
    $l_prepare = "INSERT $l_tablename (" . $l_fieldnames . ")\n VALUES
+ (" . $l_fieldvalues . ")";
}

%x = (a =>1,
      b =>2,
      c =>3,
      d =>4);