sub diff { my ($a, $b) = @_; my %b; undef @b{@$b}; grep !exists $b{$_}, @$a; } [download]
In reply to Re: Subtracting Lists by educated_foo in thread Subtracting Lists by JimSki