set subtraction

[J�rg Ziefle]

Here's my first post to FWP.  I hope it doesn't suck too much. :)

@ary1 = qw/1 2 3 4 5 6 7 8 9/;
@ary2 = qw/2 4 6 8 10/;

@ary1 = grep { my $f = $_; !scalar grep { $_ eq $f } @ary2 } @ary1;

print "@ary1\n";

J�rg