<!--- Set the random list. --->
<cfset lstRandomGirls = "" />
 
<!--- Set the counter. --->
<cfset intCounter = 0 />
 
<!--- Loop over the list of girls. --->
<cfloop index="strGirl" list="#lstGirls#" delimiters=",">
	 
	<!--- Check to see which iteration we are on. --->
	<cfif intCounter>
		 
		<!--- Insert that girl in a random place. --->
		<cfset lstRandomGirls = ListInsertAt( 
			lstRandomGirls,
			RandRange( 1, intCounter ),
			strGirl
			) />
	 
	<cfelse>
		 
		<!--- Start the list. --->
		<cfset lstRandomGirls = strGirl />
	 
	</cfif>
	 
	<!--- Increment the counter. --->
	<cfset intCounter = (intCounter + 1) />
 
</cfloop>