Select Code to Download

$VAR1 = \{
            'obj' => [
...
                   ],
            'name' => 'me'
          };

sub reduce {
  my ($ref) = @_;
...
  }
  return $ref;
}