sub indextime{       
        open FILE, "<storedata.txt";
	open OUTP, ">exporteddata.txt";
	select STDOUT;
	while (<FILE>){
	push @matrix, [split];
	}
#	print $matrix[0][0];
	$storenum = $matrix[0][0];
	$date = $matrix[0][1];
	@matrix[0] = undef;
	@matrix[1] = undef;
	@matrix[2] = undef;
	@matrix[3] = undef;

	
	select OUTP;
	for $i (6.. ($#matrix-1)){
	print "@{$matrix[$i]} $storenum $date\n";
	
	}