generate perms

    Sub GenPerms(ByVal k As Integer, ByRef listofoutlets As ArrayList)
        Dim temp As Byte
        Dim thisPerm As String = ""
        If k = 1 Then
            For z = 0 To listofoutlets.Count - 1
                thisPerm &= listofoutlets(z).ToString
            Next
            Perms.Add(thisPerm)
            'Console.WriteLine(thisPerm)
            'Return listofoutlets
        Else
            GenPerms(k - 1, listofoutlets)

            For i = 0 To k - 1
                If k Mod 2 = 0 Then
                    temp = listofoutlets(i)
                    listofoutlets(i) = listofoutlets(k - 1)
                    listofoutlets(k - 1) = temp
                Else
                    temp = listofoutlets(0)
                    listofoutlets(0) = listofoutlets(k - 1)
                    listofoutlets(k - 1) = temp
                End If
                GenPerms(k - 1, listofoutlets)
            Next
        End If

    End Sub