Select Code to Download

use threads;
use threads::shared;
...
print Dumper($a);
share($a);
print Dumper($a);

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

use threads;
use threads::shared;
...
print Dumper($a);
share($a->[0]);
print Dumper($a);

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