Select Code to Download

my $data = decode_json( $json );
my $definition= $data->{'myData'};
...
    foreach my $record (@definition) {
         print $record->{Lang4};
    }

    while (my $row = $sth->fetchrow_hashref) {
        push @definition, $row;
    }
print objToJson( { myData => \@definition} );