Select Code to Download

use strict;
use warnings;
...
        print Dumper(\@a);
    }
}

Variable "@a" will not stay shared at c.pl line 17.

ARRAY(0x1890e78)$VAR1 = [
          1
...
ARRAY(0x1890e78)$VAR1 = [
          1
        ];