Select Code to Download

my $qs = 'insert into Promotions (' . join(',', keys %{$hash->{promoti
+on}} ) .
    ',Date_Created,Date_Modified) values (' .
...

$sth = $dbh->prepare( $qs );
$sth->execute( @{$hash->{promotion}}{ keys %{$hash->{promotion}} } );

$VAR1 = {
          'Title' => 'Signup PagePoints',
...
          'Date_End' => undef,
          'Reward_Value' => ''
        };