for my $domain(@domain){
    next unless exists $neighbours{$domain};
    my @array=@{$neighbours{$domain}};