Select Code to Download

my($l_tablename, %l_data) = @_;
my(@fields, @values);
push(@fields, $_) && push(@values, $1_data{$_})
...
        VALUES (@values)
    );
}

@list = ('arg1', ('field1' => 'value1', 'field2' => 'value2'));
# above same as:
@list = ('arg1', 'field1', 'value1', 'field2', 'value2');

$table = shift(@list);  # 'arg1'
%fields = shift(@list); # 'field1'

    my $person = new MyDB::Person(4);
    $person->update(name => 'John B.');