use threads;

my $t = threads->create( 
    sub{ sleep 3; return([qw(a b c)]) ; }
);

my $ret = ($t->join) ;

print ">> @$ret\n" ;