Select Code to Download

my $val = $data->[1]->{active};
print Dumper $val;

$VAR1 = 1;

my $clean = [ map {{%$_}} @$data ];
print Dumper \$clean;

$VAR1 = \[
            {
...
              'happy' => 1
            }
          ];