Hashes are your friends:

sub diff
{
    my ($a, $b) = @_;
    my %b;
    undef @b{@$b};
    grep !exists $b{$_}, @$a;
}
[download]