Take a look at perldoc perldsc
What you need can be done in the following way:

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

--perlplexer