Select Code to Download

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

return %output_record;

return scalar %output_record;

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

print scalar %h;;
3/8

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

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

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

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