my @safe = @_;
foreach (@safe) {
    return 1 if $ip eq $_;
}
return 0;