Sorry, I'm still getting used to the site and really ought to slow down.

Here's the code block:

my $columns =     join ',',                      
           map { $db->quote($fd{$_}) }     
           grep { exists $fd{$_} }         
           ('chk');
[download]

The code is pulling and sorting the data correctly just the , become \0 which is a problem as I need to insert these into a database as a query.