my $dbh = ...
my $dbh_b = ...
my $dbh2 = ...
my $dbh2_b = ...

##</code><code>##

use strict;

my $db = "MyServer"; my $user = MyServerStuff::odbc->{ $db } { user }; my $pass = MyServerStuff::odbc->{ $db } { pass };

my %dbh;
for(my $ix= 1; $ix < 6; $ix++){
  foreach my $choice (qw(a b)){
    $dbh{$ix}{$choice} = DBI->connect("DBI:ODBC:$db",$user, $pass, {RaiseError => 1})}};