my $file = "data2.dat";
	if (-e $file){
		$file = "data3.dat";
		open (FILE, ">$file") or die "Can't open the file $!\n";}
	else {
		open (FILE, ">>$file") or die "Can't open the file $!\n";}