use threads;
use threads::shared;

use Data::Dumper;

use warnings;
use strict;


my $a = [1,2];
print Dumper($a);
share($a);
print Dumper($a);

##</code><code>##

$VAR1 = [
          1,
          2
        ];
$VAR1 = [];

##</code><code>##

use threads;
use threads::shared;

use Data::Dumper;

use warnings;
use strict;


my $a = [1,2];
print Dumper($a);
share($a->[0]);
print Dumper($a);

##</code><code>##

$VAR1 = [
          1,
          2
        ];
$VAR1 = [
          '1',#look at this
          2
        ];