Select Code to Download

 3:03 >perl -MData::Dump -wE "my @array; $array[5.35968 % 2] = 42; dd 
+\@array;"
[undef, 42]

 3:03 >

 3:03 >perl -wE "my $iterations = 0; my $number = 192; while ($number 
+!= 0) { $number /= 2; ++$iterations; } say qq[$iterations iterations]
+;"
1083 iterations

 3:06 >