[Perl] prendere il valore di ritorno da un thread... problemi

[atomico]

ciao a tutti...sto uscendo pazzo.. mi dite cosa c'è che non va in questo codice?

use thread;
my @threads;

threads->create(\&thread);
while (@threads = threads->list(threads::all)) {
    @threads = threads->list(threads::joinable);
    foreach (@threads) {
        @outputThreads = $_->join();
        print "\n $outputThreads[0] \taaa\t $outputThreads[1] \taaa\n";
    }
}

sub thread {
    my $pippo = 3;
    my $pluto = 5;
    
    my @out;
    $out[0] = 2;
    $out[1] = 8;
    return (@out);
} 

non scrive nulla...

[atomico]

risolto si può chiudere