foreach $try (@domains)
        {
                if ($try eq $dmn) {$ok=1};
        };
        if ($ok ne 1) {@domains=(@domains,$dmn)};

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

foreach $domain (@domains)
{
        @$domain=();
        foreach $machine (@allmachines)
        {
                @namepartsplit= split /\./, $machine;
                if ( $namepartsplit[1] eq $domain )
                {
                        @$domain=(@$domain,$machine);
                };
        };
@data=(@data,"start:$domain",@$domain,"end:$domain",);
};