replace

$k = 0;
    while (@results = $sth->fetchrow_array()) {
        $data[$k] = [ @results ];
        $k++;
    }
[download]

with

while($results = $sth->fetchrow_array_ref()) {
    push @data, $results;
}
[download]

and see if that makes any difference

Also, it seems to me that you don't have 'use strict;' or 'use warnings;' - add them and you might find that Perl will point out an obvious error