sub xor {
    return($_[0]*1 ^ $_[1]*1);
}