mod.ps1

param(
  [int]$Limit
)
$modules = Get-Module -ListAvailable
$finalList = @()
$hash = @{
   'Errbody' = @()
}
foreach($module in $modules){
    $root, $name = $module.Name -split '[.]'
    if(-not [String]::IsNullOrEmpty($name)){
        if(-not $hash.ContainsKey($root)){
            $hash[$root] = @()
        }
       $hash[$root] += $module
    } else {
      $finalList += $module
}
$subList = @()
$hash.GetEnumerator() | %{
  if ($_.Value.Count -ge $Limit){
    $finalList += $_.Key
  } else {
    # If the count was less then the limit, toss them all back in
    $finalList += $_.Value
  }
}
# Finally print the list
$finalList | Sort-Object