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

##</code><code>##

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