my @image2D=undef;
for(my $ix=0; $ix<scalar @tempimage; $ix++)
{
   my @temp=split("\,",$tempimage[$ix]);
   for(my $iy=0; $iy<scalar @temp; $iy++)
    {
	$image2D[$ix][$iy]=$temp[$iy];
    }				
}