use strict;
use warnings;
use Data::Dumper;
use threads;

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

my $ReturnData = $thr->join;
print Dumper($ReturnData);

$ReturnData = sub1();
print Dumper($ReturnData);

sub sub1
{
    return ["Fifty-six", "foo", 23];
}