Select Code to Download

my $thr = threads->new( sub { return (1,2,3) });
my @a = $thr->join();
print "return is @a\n";

my ($thr) = threads->new( sub { return (1,2,3) });
my @a = $thr->join();
print "return is @a\n";