unless( grep{ $_ eq $dmn }@domains ){ push @domains, $dmn; }