my %a = map { $_ => 1 } @a;
my %b = map { $_ => 1 } @b;

@c = grep { !$b{$_} } @a;
@d = grep { !$a{$_} } @b;
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.