Как выбрать переменные отвечающие некому заданному критерию ?

$var4 = 'sdg'
$var5 = '101'
$var6 = '102'
$var3 = 'ty'
$var7 = '103'
$var1  = '66'
$var8 = '104'
$var9 = '10f'
$var2 = '77'

$var1 = 66
$var2 = 77
$var3 = 88
$iRandom = Random(1, 3, 1)
MsgBox(64, '$var' & $iRandom, Eval('var' & $iRandom))

Switch $iRandom
	Case 1
		MsgBox(64, 'Info', $var1)
	Case 2
		MsgBox(64, 'Info', $var2)
	Case 3
		MsgBox(64, 'Info', $var3)
EndSwitch

$var1  = '66'
$var2 = '77'
$var3 = '88'
$var4 = '100'
$var5 = '101'
$var6 = '102'
$var7 = '103'
$var8 = '104'
$var9 = '105'
$iRandom = Random(1, 9, 1)

$var1  = '66'
$var2 = '77'
$var3 = '99'
$var4 = '100'
$var5 = '101'
$var6 = '102'
$var7 = '103'
$var8 = '104'
$var9 = '105'

$var4 = 'sdg'
$var5 = '101'
$var6 = '102'
$var3 = 'ty'
$var7 = '103'
$var1  = '66'
$var8 = '104'
$var9 = '10f'
$var2 = '77'

$var0 = '999'
$var1 = 'sdg'
$var2 = '101'
$var3 = '102'
$var4 = 'ty'
$var5 = '10'
$var6 = '66'
$var7 = '10'
$var8 = '10f'
$var9 = '77'

Dim $aVar[11]
$iCount = 0
For $i = 0 To 9
	If StringLen(Eval('var' & $i)) = 3 Then
		$iCount += 1
		$aVar[$iCount] = $i
	EndIf
Next
If $iCount Then
	ConsoleWrite($iCount & @LF)
	;ReDim $aVar[$iCount + 1]
	If $iCount > 1 Then
		$iRandom = Random(1, $iCount, 1)
		MsgBox(64, '$var' & $aVar[$iRandom], Eval('var' & $aVar[$iRandom]))
	Else
		MsgBox(64, '$var1', Eval('var' & $aVar[1]))
	EndIf
Else
	MsgBox(16, 'Error', 'Error')
EndIf