P:\test>perl -Mthreads -Mthreads::shared 
-wle"my $a = 1; print $a; share( $a ); print $a "
1
1

##</code><code>##

P:\test>perl -Mthreads -Mthreads::shared -Mstrict 
-wle"my @a = ( 1,2,3); print @a; share( @a ); print @a "
123

P:\test>perl -Mthreads -Mthreads::shared 
-wle"my %a = ( 1,2,3,4 ); print %a; share( %a ); print %a "
1234