open FILE, "<input.txt";
	open OUTP, ">output.txt";
	undef (@matrix);
	while (<FILE>){
	push @matrix, [split];
	}
    &dataconvert; # this is where it branched off to 
                  #change up the data
	select OUTP;
        for $i (0.. ($#matrix)){
	print "@{$matrix[$i]} \n";
	}