my $dominfo;
my $onesuccess = eval { $dominfo = whois($list1); 1};
if( $onesuccess ){
    ...
} else {
  log("failed for { $list1 } : $@");
  next;
}