#! perl -sw
use 5.010;
use strict;
use threads;

$_->join for map {
    async {
        for( 1 .. 7e6 ) {
            int rand 10;
        }
    };
} 1 .. 64;

say "Test 1 complete"; <STDIN>;

$_->join for map {
    async {
        my $tmp;
        for ( 1 .. 7e6 ) {
            for ( 1 .. 1e5 ) {
                $tmp = $_;
            }
            int rand 10;
        }
    };
} 1 .. 64;

##</code><code>##

        for my $i ( 1 .. 7e6 ) {
            for my $j ( 1 .. 1e5 ) {
                $tmp = $j;
            }