my %dels = map { $_ => 1 } @dels;
@array = grep !$dels{$_}, @array;