use threads; 

$thr = threads->new(\&sub1);

@ReturnData = $thr->join; 
print "Thread returned @ReturnData"; 

sub sub1 { return "Fifty-six", "foo", 2; }  

##</code><code>##

use threads;
use threads::shared;

share(@array);

$thr = threads->new("sub1");
@ReturnData = $thr->join; 
print "Thread returned @ReturnData\n"; 
print "Thread populated @array\n"; 

sub sub1 { @array = ("Fifty-six", "foo", 2) }