Select Code to Download

my $sql = qq! SELECT 
                 a."FirstName"::TEXT || ' ' ||a."LastName" AS "Labels"
+,  
...
my $labels  = $ref->{'Labels'}; 
my $data    = $ref->{'Data'}; 
}

$labels = [label1, label2, label3.....];
$data   = [data1, data2, data3.........];