perl: remove elements of array2 from array1

Hi, I'm learning perl programming and would appreciate some help. How do I write code to remove elements of array2 from array1

I.e.

@array1={'a','b','c','d'}
@array2={''a','z','c','x'}


(magic happens, processes @array1 and @array2)

dump @array1 gives 'b','d'

Any clues?

Thanks!

nevermind, found something

@array1=(1,2,4,6,7,8);
@array2=(1,2,3,5,6,7);

for $i (@array1) {
   print "$i\n" if ! grep {$i == $_} @array2;
}

>>1
I have discovered your problem:
I'm learning perl programming

>>3
Expert in depth analysis.

>>> array1 = {'a', 'b', 'c', 'd'}
>>> array2 = {'a', 'z', 'c', 'x'}
>>> array1 -= array2
>>> array1
{'b', 'd'}

>>5
Wait, you can do that?  What's the big-Oh for that?

>>6
girlsAll-GirlsWithBoyFriends

>>6
It's constant time, like all interpreted languages.