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