14.9562268257141
14.9582891464233
14.8853561878204

11.9686307907104
12.0527169704437
12.0850310325623

##</code><code>##

my $y = $x-> index( sequence $n )-> at( 0 );

##</code><code>##

7.74871516227722
7.80155396461487
7.71721601486206

4.92977499961853
4.87044596672058
4.87968802452087

##</code><code>##

use strict;
use warnings;
use feature 'say';
use threads;
use PDL;

PDL::no_clone_skip_warning;

srand;
async sub{ say random( 1 )-> at( 0 )}
    for 1 .. 5;
$_-> join for threads-> list;

say rand;

__END__

0.851411183904023
0.851411183904023
0.851411183904023
0.851411183904023
0.851411183904023
0.851411183904023