$a = ~( $b = chr(0)x 1e3 ); 
$t=time; 
my $x = $a ^ $b for 1 .. 1e6; 
printf "Took %.6f seconds\n", time()-$t;;
Took 1.297000 seconds