Select Code to Download

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

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