i have tried several ways to check my list. if i replace the file name instead of \$list the program will not use from my file.i tried to use this code instead to check my list element

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

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

but there is a problem with reference that i couldn't solve it yet.then i came back to list.with replacing file name with \$list , my $list and its elements will not be useful , because \$list is a reference for that (i think) then i delete that,but still it doesn't work without error but no output.it shows that script hasn't opened the domainlist.