#!/usr/bin/perl
use strict;
use warnings;
use Benchmark qw':all :hireswallclock';
use threads;

cmpthese(10, {
    'for' => sub {
        my $k = 1;
        for (230000 .. 900000) {
            $k *= 1 + $_* 0.0000000001;
        }
        #print "for: $k\n";
        },
    'threads' => sub {
        my $thr2 = async {
            my $k = 1;
            for (565001 .. 900000) {
                $k *= 1 + $_* 0.0000000001;
            }
            return $k;
        };
        my $k = 1;
        for (230000 .. 565000) {
            $k *= 1 + $_* 0.0000000001;
        }
        $k *= $thr2->join();
        #print "threads: $k\n";
    }
});

##</code><code>##

          Rate threads     for
threads 2.92/s      --    -35%
for     4.48/s     53%      --