Select Code to Download

use strict;
use warnings;
...
   qq{]\n[} .
   join( q{; }, @arr2 ) .
   qq{]\n};

@arr1 = (
          '9,18246152003019',
...
        );
[9,18246152003019; 7,18246152003019; 6,9898164420878; 6,70441422322555
+; 12,9959266915162; 6,22163211731087]
[9,18246152003019; 0; 6,9898164420878; 6,70441422322555; 12,9959266915
+162; 0]