Select Code to Download

my $rows = [
   map {
...
         : { EVEN => [ map { {VALUE => $_} } @{$row} ] }
   } @{$data}
];

(++$i % 2)

($results > 0)

use Data::Dumper;

...
    ];
    print Dumper($rows);
}

$VAR1 = [
          {
...
                     ]
          }
        ];