for my $domain(@domain){
    my @array=exists $neighbours{$domain} ? @{$neighbours{$domain}} : ();