Select Code to Download

$sth->bind_param( $i++, $holidays->{$name}->{$_} ) foreach keys %{$hol
+idays->{$name}};

$sth->bind_param( $i++, $holidays->{$name}->{$_} ) foreach qw/ name da
+te type federal active /;

 use SQL::Abstract;
 my $sql = SQL::Abstract->new;
...
   my($stmt, @bind) = $sql->insert('your_table_name', \%data);
   $dbh->do($stmt, {}, @bind);
 }