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