# 参加者が利用している複数のメールアドレスのListを取得
	open LIST,$ARGV[0] or die "error";
	while($targetList = <LIST>){
		chomp($targetList);
		my ($fromName, $fromMail) = split/\t/, $targetList;
		push(@fromName, $fromName);
		push(@fromMail, $fromMail);
	}
	
	# uniqueAndmanのListを取得
	open LIST2,$ARGV[1] or die "error";
	while($andmanList = <LIST2>){
		chomp($andmanList);
		push(@andmanList, $andmanList);
	}

	# 最初に取得した参加者が利用している複数のメールアドレスのListの中にAndmanがいるか調べる
	for($j=0;$j<=$#andmanList;$j++){
		for($m=0;$m<=$#fromMail;$m++){
			if($andmanList[$j] eq $fromMail[$m]){
				print $fromName[$m]," - ",$fromMail[$m];
				for($n=0;$n<$#fromMail;$n++){
					if(($fromName[$m] eq $fromName[$n]) && $m ne $n){
						print "\t\t",$fromMail[$n];
					}
				}
				print "\n";
				last;
			}
		}
	}