my $mtab;
my $mtab1;
my @mtab = ();
my @mtab1 = ();
open (TMP2, ">C:\\SCCI\\scci_clearcase\\temp2_out\.txt");
open (TMP3, "<C:\\SCCI\\scci_clearcase\\temp3_out\.txt");
#
# Load Metrics table
#
while ($str = <TMP3>) {
	$product="";
	$date="";
	$hour="";
	$user="";
	$day="";
	$dum1="";
	$dum2="";
	$i=0;
	$j=0;
	$k=0;
	$l=0;
	chomp $str;
	($dum1,$dum2) = split(/ /,$str,2);
	($i,$j,$k,$l) = split(/,/,$dum1,4);
	($product,$date,$hour,$user)=split(/,/,$dum2,4);
	$tmpval=$product.$date.$hour;
	if ($product ne $old_product) {
		$old_product = $product;
		$ii++;
		$jj = -1;
	}
	$jj++;
	$mtab1[$ii]=$tmpval;
	$mtab1[$ii][$jj]=$user;   ############# This is the line referenced for the error

	print TMP2 "ii = $ii \t jj = $jj mtab product = $mtab1[$ii] \t mtab user = $mtab1[$ii][$jj]\n";
	$mtab[$i]=$product;
	$mtab[$i][$j]=$date;
	$mtab[$i][$j][$k]=$hour;
	$mtab[$i][$j][$k][$l]=$user;
	print TMP2 "$i, $j, $k, $l  user = $user mtab = $mtab[$i][$j][$k][$l]\n";
	
}

close(TMP3);