for $i(@a){if($i ne $m){push(@b,$i)}} @a=@b;