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];
}

##</code><code>##

$VAR1 = [
          'Fifty-six',
          'foo',
          23
        ];
$VAR1 = [
          'Fifty-six',
          'foo',
          23
        ];