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