for($i=0;$i<=$#ARGV;$i++){
		open FH,$ARGV[$i] or die "error";
		while(<FH>){
			push(@participantList, $_);
		}
	}

	@sortByMail = sort { $a cmp $b } @participantList;


################## Step 0. From行の名前とメールアドレスが完全一致(要は重複文)を排除 ####################

	for($i=0;$i<=$#sortByMail;$i++){
		unless($sortByMail[$i] eq $sortByMail[$i + 1]){
			push(@removeOverlapLine, $sortByMail[$i]);
			my($fromMail,$fromName) = split/\t/, $sortByMail[$i];
			push(@fromMailList_1, $fromMail);
		}
	}

	print @removeOverlapLine;

=pod

################## Step 1. メールアドレスが完全一致の場合を排除 ########################################

	# e.g："空白"\t"aaa@bbb" と "aaa"\t"aaa@bbb" があった場合，"aaa"\t"aaa@bbb"の1つに統合
	for($j=0;$j<=$#removeOverlapLine;$j++){
		unless($fromMailList_1[$j] eq $fromMailList_1[$j + 1]){
			my($fromMail, $fromName) = split/\t/, $removeOverlapLine[$j];
			my $mailBeforeAt = $fromMail;
			$mailBeforeAt =~ s/^(.+?)\@.*/$1/;
			push(@mailBeforeAt, $mailBeforeAt);
			push(@fromNameList_1, $fromName);
			push(@removeSameMail, $removeOverlapLine[$j]);
		}
	}

################## Step 2. From行の名前が一致 && メールアドレスの@以前が同じ場合を排除 #################

	for($k=0;$k<=$#removeSameMail;$k++){
		unless(($fromNameList_1[$k] eq $fromNameList_1[$k + 1]) && ($mailBeforeAt[$k] eq $mailBeforeAt[$k + 1])){
			push(@uniqueListByAutomation, $removeSameMail[$k]);
		}
	}

=cut