#! /usr/bin/perl -w

undef %saw;
open (FILE , "<emails.txt");
chomp(@email = <FILE>);
@email = grep(!$saw{$_}++, @email);
close FILE;

while (@email){
($login,$domain) = split /@/, shift @email;
open (EMAIL , ">>$domain.txt");
print EMAIL "$login\@$domain\n";
}
close EMAIL;

В файл emails.txt кидаешь мыла.
Прога удаляет дубли и разбивает список по доменам в txt файлы