Or isn't it simply:

my %result=();
for ( @a, @b ) {
    if ( $result{ $_ } ) {
        delete $result{ $_ };
    }
    else {
        $result{ $_ } = 1;
    }
}
[download]

The required list is now found in ( keys %result )