my $insert= $dbh->prepare("INSERT INTO $table ($columns) VALUES ($rows)GO"); #### # Construct a string of "?" as the placeholders: my $placeholders = join ",", map { "?" } keys %{$mirror{"$Itemnumber"}{"$table"}}; my $insert= $dbh->prepare("INSERT INTO $table ($columns) VALUES ($placeholders)"); $insert->execute(values %{$mirror{"$Itemnumber"}{"$table"}});