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