@array1 = grep ! m/$pattern/i, @array1;