sub makeJSONToExport {
	my ($arrayref) = @_;

	my $typehint_raw =  { age    	=> JSON_TYPE_INT,
	        lastname  	=> JSON_TYPE_STRING,
	        firstname      	=> JSON_TYPE_STRING};


	my $typehint_raws = [ ($typehint_raw) x  @$arrayref];
	my $json = encode_json($arrayref, $typehint_raws);
	return $json;
}