$query1 = "select foo,bar,baz,";
$query1 =~ s#(.*),$#$1#gs;
print "$query1";
#output
#select foo,bar,baz