use strict;
use warnings;
use 5.014;
use List::MoreUtils qw{ firstidx first_index};
use DBI;
use DBI qw(:sql_types);
# ...
my $dbh = DBI->connect('dbi:ODBC:dsn='.$parms{dsn}, $user, $auth, 						{RaiseError => 1, AutoCommit => 1, ShowErrorStatement => 1} );
# ...
# ...
my $boats_t;
# ...
# ...
$boats_t ->{SQL_types_ref} = {License => 'SQL_VARCHAR',  Make => 'SQL_VARCHAR',
	OwnerID => 'SQL_BIGINT', YearModel => 'SQL_DATETIME',};
my $boats = { tab_obj => $boats_t, 
			arrays => {License => [], Make => [], OwnerID => [], YearModel => [], }, };
# ...
# tuple arrays are populated
# ...
my $sta = $boats->{tab_obj} -> arr_insert( tup_str => $boats ->{arrays} };
# ...
# ...

sub arr_insert {	#1 insert an array into a table using DBI execute_array		----------- sub arr_insert
	# call: $sta = $db_table_obj -> arr_insert( tup_str => \%tuples_structure);
	#	$tup_str = { ID => [id1..idn], col_2 => [c1_2..c2n], .. col_N => [cN_1..cN_n]};
	# taken from: http://search.cpan.org/~timb/DBI-1.627/DBI.pm#execute_array, and see:
	# www.perlmonks.org/?node=DBI%20recipes
	
	my $self = shift;
	my %parms = @_;
	my ($i, $j, $sql_type, $sql_const);
	my $tup_str = $parms{tup_str};
	my @columns = keys %$tup_str;
	my %SQL_types = %{ $self->{SQL_types_ref}};
	for $i (keys %SQL_types) {
		$j = first_index {$_ eq $i} @columns;
		$sql_type = "DBI::$SQL_types{$i}";
		$sql_const = &{ \&$sql_type}();	# see http://www.perlmonks.org/?node_id=654158
		$sth->bind_param ($j+1, undef, {TYPE => $sql_const} );
		# see http://www.nntp.perl.org/group/perl.dbi.users/2002/12/msg15911.html
	}
# ...
# ...
@tup_vals = map { $tup_str->{$_} } @columns;
$tuples = $sth->execute_array(  { ArrayTupleStatus => \@tuple_status }, @tup_vals);
# ...
# ...
} # end sub sub arr_insert

##</code><code>##

DBD::ODBC::st bind_param failed: [Microsoft][ODBC SQL Server Driver]
		Optional feature not implemented (SQL-HYC00)
	[for Statement "INSERT INTO Boats (License, YearModel, OwnerID, Make) VALUES (?, ?, ?, ?)"
					with ParamValues: 1=undef, 2=undef, 3=undef, 4=undef]