my $dominfo;
next unless eval { $dominfo = whois($list1); 1 };
...