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