Select Code to Download

@A_K = grep /^[A-K]/, @query_results;
@L_Z = grep /^[L-Z]/, @query_results;

my @A_K;
my @L_Z;
...
    $aref = \@L_Z if ( $$row[$last_name_col] =~ /^L/ );
    push @$aref, [ @$row ];
}