Nice. A variation on the unique/duplicate stuff:

    # Assuming @foo and @bar dont contain duplicates in themselves...
    $_{$_}++ for @foo;
    $_{$_}-- for @bar;
[download]

The values in %_ are positive if in @foo, negative if in @bar and 0 if in both.