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