#! perl -slw
use strict;
use threads;
use threads::shared;

sub test {
    my @results :shared;
    async {
        @results = 1 .. 10;
    }->join;
    
    print "@results";
    return @results;
}

print test();

__END__
C:\test>junk50
1 2 3 4 5 6 7 8 9 10
Use of uninitialized value in print at C:\test\junk50.pl line 16.
Use of uninitialized value in print at C:\test\junk50.pl line 16.
Use of uninitialized value in print at C:\test\junk50.pl line 16.
Use of uninitialized value in print at C:\test\junk50.pl line 16.
Use of uninitialized value in print at C:\test\junk50.pl line 16.
Use of uninitialized value in print at C:\test\junk50.pl line 16.
Use of uninitialized value in print at C:\test\junk50.pl line 16.
Use of uninitialized value in print at C:\test\junk50.pl line 16.
Use of uninitialized value in print at C:\test\junk50.pl line 16.
Use of uninitialized value in print at C:\test\junk50.pl line 16.