my $query = "select "      . do {local $" = ", ";    "@select_array"} 
+.
            " from table " .
            "where "       . do {local $" = " and "; "@where_array"};
[download]

Abigail