@array = grep !/$bad_ip/, @array;

##</code><code>##

splice @array, $index, 1;