Select Code to Download

use threads; 

...
print "Thread returned @ReturnData"; 

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

use threads;
use threads::shared;
...
print "Thread populated @array\n"; 

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