or download this
my $statement = "Insert into TABLE (name, date, type, federal, active)
+ values( :name, :date, :type, :federal, :active );
...
$sth->bind_param( ':'.$_, $holidays->{$name}->{$_} ) foreach keys %{
+$holidays->{$name}};
$sth->execute(); # check errors here too
}