use strict;
use warnings;
use Data::Dumper;

update(10, {
    name    => 'test',
    value   => 'success',
});

sub update {
    my ($key, $params) = @_;

    my $sql = "update my_table set ";

    my @args;

    $sql .= join(
            ', ',
            map {
                push(@args, $params->{$_});
                "$_ = ?"
            } keys %$params
        );

    $sql .= " where key = ?";

    push(@args, $key);

    die Dumper([$sql, \@args]);

}