my %memberRecord = ...;

my @cols = keys   %memberRecord;
my @vals = values %memberRecord;

my $stmt = do {
    local $" = ", ";
    my @q_cols = map $dbh->quote_identifier($_), @cols;
    my @params = ('?') x @cols;
    "INSERT INTO $tableName (@q_cols) VALUES (@params)"
};

my $sth = $dbh->prepare($stmt);
$sth->execute(@vals);