my $thr = threads->new(\&sub_returning_hash, $argument);

##</code><code>##

return %output_record;

##</code><code>##

return scalar %output_record;

##</code><code>##

%h = qw[ a 11 b 12 c 13 ];;

print scalar %h;;
3/8

##</code><code>##

%r = scalar %h;;
Odd number of elements in hash assignment 

##</code><code>##

my( $thr ) = threads->new(\&sub_returning_hash, $argument);

##</code><code>##

[11:51:36.25]C:\test>junk
a = 11
b = 12
c = 13

##</code><code>##

my $thr = threads->new( {'context' => 'list'}, \&sub_returning_hash, $argument );