I think this is good as far as it goes, but I would assume that the OP wants to XOR some humongous things that cannot be represented as simple Perl numeric scalar values? In this case, use hex() function.
my $x = "aabbcc";
my $y = "112233";
printf '%x', hex($x) ^ hex($y); #bb99ff