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

##</code><code>##

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