Select Code to Download

use strict;
use warnings;
...
    map {[$_, split (',', $_), @{$sums{$_}}{'a', 'b'}]} keys %sums;

Dump (\@result);

$ARRAY1 = [
            [
...
              0
            ]
          ];