Select Code to Download

# after $dbh is obtained
{
    my $sth = $dbh->prepare
...
        $sth->fetchrow_hashref;
    }   # mod some error checking
}

my @hall_ids = 1..20;
my %details;
@details{@hall_ids} = map { details_from_id $_ } @hall_ids;