c:\test>junk8 -N=100
Time taken: 0.0261 seconds
{
  A => [1, 2, 3, 4, 5, 6, 7, 8, 9, 10],
  ARGS => [1, "2.3", "four"],
  B => {
        a   => "b",
        c   => "d",
        e   => "f",
        g   => "h",
        i   => "j",
        k   => "l",
        "m" => "n",
        o   => "p",
        "q" => "r",
        "s" => "t",
        u   => "v",
        w   => "x",
        "y" => "z",
      },
  C => "Just a big scalarJust a big scala
 big scalarJust a big scalarJust a big sc
}

##</code><code>##

#! perl -slw
use strict;
use threads;
use Time::HiRes qw[ time ];
use Data::Dump qw[ pp ];

our $N ||= 10;

sub stuff {
    my %hash = (
        ARGS => \@_,
        A => [ 1 .. 10 ],
        B => { 'a' .. 'z' },
        C => 'Just a big scalar' x 100,
    );
    return \%hash;
}

my $complexData;
my $start = time;
for ( 1 .. $N ) {
    ## "fork" the subroutine
    my( $thread ) = async \&stuff, 1, 2.3, 'four' ;

    ## Do other stuff
    sleep 1;

    ## Get the complex results
    $complexData = $thread->join;
}

printf "Time taken: %.4f seconds\n",
    ( time() - $start ) / $N  - 1;

## Display them
pp $complexData;