if (grep { $name eq $_ } @list and $ENV{REMOTE_ADDR} ne "$ip" ) {.....