use threads;
use threads::shared;

use Data::Dumper;

use warnings;
use strict;


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