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