Select Code to Download

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})}};