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

##</code><code>##

$VAR1 = 1;

##</code><code>##

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

##</code><code>##

$VAR1 = \[
            {
              'name' => 'Bob Johnson',
              'active' => 1,
              'happy' => ''
            },
            {
              'name' => 'Bill Johnson',
              'active' => 1,
              'happy' => 1
            },
            {
              'name' => 'Frank Johnson',
              'active' => '',
              'happy' => ''
            },
            {
              'name' => 'George Johnson',
              'active' => '',
              'happy' => 1
            }
          ];