Select Code to Download

while (my @kp_src_t_row=$sth->fetchrow_array())
{
...
 }
 $kp_num++;
}

while (my @kp_src_t_row=$sth->fetchrow_array())
{
 $currentarray[$kp_num]= @kp_src_t_row
 $kp_num++;
}