Hi little friends!

I spent the last six weekends, and I haven't been with a girl in six months, but i finally come up with an easy answer to this problem (with the help of my brilliant super cool stud friend Gary G)

my @arr1 = (1,2,3,4,5,6,7,8,9); my @arr2 = (4,5,10);

my @arr3 = grep{my $element = $_; grep ($_ eq $element,@arr2) == 0} @arr1;

Wich gives (1,2,3,6,7,8,9)

Kisses to all the monks out there
Bye