Select Code to Download

#!/usr/local/bin/perl5 -w

...
        $nfields = $s_handle->{NUM_OF_FIELDS};
        return(\$aoa,\$nrows,\$nfields);
}

mysql> select * from weekly where btype = 'F' and day = '0'
order by keyno limit 2;
...
|    58 | F     | 2003-09-28 |   0 |
+-------+-------+------------+-----+
2 rows in set (0.02 sec)

Use of uninitialized value in hash element at 
./hoAoA_ref_test.pl line 39.
Use of uninitialized value in hash element at 
./hoAoA_ref_test.pl line 39.

Use of uninitialized value in method lookup at 
./hoAoA_ref_test.pl line 50.
Can't call method "" on unblessed reference at 
./hoAoA_ref_test.pl line 50.