Select Code to Download

$VAR1 = [
          {
...
          }
        ];

  map {
      map{ $total_value += $_->{test1} ; } @{$_->{columns}};
    } @{$testsub->result()}; 
      }