my %delh;
@delh{@dels} = ();
@array = grep ! exists $delh{$_}, @array;