my @fields = keys(%data);
my $q_fields = join ', ', map $dbh->quote_identifier($_), @fields;
my $q_values = join ', ', map $dbh->quote($_), @data[ @fields ];

my $sth = $dbh->prepare("
   INSERT INTO Table (
             $q_fields
          ) VALUES (
             $q_values
          )
");
$sth->execute();