while (<FILETOREAD>) { # read each line of file, one at a time
	$xyz = $_;
  	push(@values1,[split(/\,/,$xyz)]);
}
close (FILETOREAD);