Help for this page

Select Code to Download


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