This was "a" solution:

my $insert_stmt = "Insert into TABLE (name, date, type, federal, active) 
values( :name, :date, :type, :federal, :active )";

my $sth = $dbh->prepare( $insert_stmt );

my $holidays;

foreach my $name ( keys %holidays ) {
        $sth->bind_param( ':name', $name );
        $sth->bind_param( ':'.$_, $holidays->{$name}->{$_} ) foreach keys 
%{$holidays->{$name}};
        $sth->execute() or die "Cannot execute SQL statement: 
$DBI::errstr\n";
} 


Reply via email to