$query =~ s/,$//;

##</code><code>##

my @cols = qw(foo bar baz);
$query1 = 'select ' . join (',',@cols);