my @section;
while(my $r = $db->fetchrow) {
    push @section, $r if $r->{name} =~ /^A/i;
}