Select Code to Download

[
    {
...
        "info": "\t\t\t\t\t\t  \n<p>John UK Male</p> \n<p>Kieth UK Mal
+e</p>"
    }
]

my $sth = $dbh->prepare("SELECT name country gender FROM tbl_U WHERE l
+ocation = ?");
$sth->execute('UK');
...

my $json = encode_json \@updated_data;
print $Cgi->header( -type => 'application/json' ),$json;

[
    {
...
        "info": "\t\t\t\t\t\t  \n<p>Kieth UK Male</p>"
    }
]