while ( $ac_num = $sth->fetchrow_arrayref()) 
{
    print "<br><font color=red><b>Print for testing only: @{$ac_num}</b></font><br>\n";
    push (@all_num,@{$ac_num});
{
print "<br><font color=red><b>For testing results:  ^^^^^@all_num^^^^^</b></font><br>";