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

##</code><code>##

my @section = grep { $_->{name} =~ /^A/i } $db->fetchrows;