$file = "test.txt"

$List = readfile($file)

dim $array[0]

for each $A in $list
	for each $b in $list
		if $a = $b
			$counter = $counter + 1
		endif
	next
	if ascan($array,$a +" - " + $counter) = -1
		$array[ubound($array)] = $a +" - " + $counter
		redim preserve $array[ubound($array)+1]
	endif
	$counter = 0
next

if ubound($array)
	redim preserve $array[ubound($array)-1]
endif

? join($array,@crlf)