open (DOMAINLIST,'<domainlist') or die "cannot open 'domainlist'becuase:$!";

   chomp(my @domain=<DOMAINLIST>);
    for my $domain(@domain){
    my @array=@{$neighbours{$domain}};