Select Code to Download

while ( my $row = $sth->fetchrow_hashref ) {
    my %data;
...

    push @output, \%data;
}

{
  "myData" : [
...
    # etc ...
  ]
}