Select Code to Download

while (my $row = $dbh -> fetchrow_arrayref) {
    if ($row -> [$last_name_col] =~ /^[L-Z]/) {
...
    }
    push @A_K => $row;
}