$alphabet{$s}++;
	open (DATA, ">> ./ATOZ/$s.shtml" )or die "can't open file: $s!";
		if (($alphabet{$s}) % 2){
			print DATA qq|<tr bgcolor="#eeeeee">;
		} else {
			print DATA qq|<tr bgcolor="#FFFFFF">|;
		}
	close DATA;