@array=((grep $_ ne $wanted, @array), $wanted);