Select Code to Download

    my $data  = {};
    my $SQL   = "SELECT * FROM my_table ORDER BY order";
...
    }
    $sth2->finish();

"Can't use an undefined value as an ARRAY reference at /myprogram.pl l
+ine 23."

$sth2->bind_columns( \( @row2 { @{ $sth2->{ NAME_lc } } } ));

while ( $sth->fetch() ){
    %record=%row;
...
    $data->{"data_$i"} = { %record };
    $i++;
}

while ( $sth->fetch() ){
    %record=(%row);
...
    $data->{"data_$i"} = \%record;
    $i++;
}