Help for this page
my $dbh = ... my $dbh_b = ... my $dbh2 = ... my $dbh2_b = ...
use strict; ... for(my $ix= 1; $ix < 6; $ix++){ foreach my $choice (qw(a b)){ $dbh{$ix}{$choice} = DBI->connect("DBI:ODBC:$db",$user, $pass, {Ra +iseError => 1})}};