sub create_SQLprepared{
    my ($l_database, $l_tablename,@l_fields)  = @_;
    my $l_fieldnames;
    my $l_placeholder;
    my $l_statement;

    my $l_fieldnames = join ",", (@l_fields);
    foreach (@l_fields) {$l_placeholder .= "?"}

    $l_placeholder = (join ",", (split //, $l_placeholder));
    print "INSERT $l_tablename (" . $l_fieldnames . ")\n VALUES (" . $l_placeholder . ")";
    $l_statement = $l_database->prepare("INSERT $l_tablename (" . $l_fieldnames . ")\n VALUES (" . $l_placeholder . ")";
    return (\$l_prepare);
}