まず、取得したメールアドレスを1行1アドレスで登録したものを
@emails1へ入れます。
そして、以下を実行します。

	foreach $DATAL1 (@emails1){
		$EMAILS1 = $DATAL1;
		chomp $EMAILS1;

		$i = 0;
		$ii = 0;
		foreach $DATAL2 (@emails1){
			$EMAILS2 = $DATAL2;
			chomp $EMAILS2;
			if($EMAILS1 eq $EMAILS2 && $i == 0){
				$i++;
			}
			elsif($EMAILS1 eq $EMAILS2 && $i ne "0"){
				$emails1[$ii] = '';
			}
		$ii++;
		}
	}

	$EMAILS = join('',@emails1);

$EMAILSへは、重複したアドレスを削除した形のものが入ります。