foreach $i(0..$#{$a_row})
{
   foreach $j (0..$#{$a_row->[$i]} ) 
   {
    $array[$i][$j] = $a_row->[$i][$j];
    }
}

print Dumper(\@array);