my $stime = time;

for (1..1_000_000) {
   my $i = rand(4294967295);
   while ($i) {
      $count++ if $i>>=2;
   }
}

my $etime = time;
print($etime-$stime, " seconds to count the $count 1s in 32_000_000 bits\n");

##</code><code>##

4 seconds to count the 14665902 1s in 32_000_000 bits