my %usernames = ();

while(my $user = ...) # in $user steht der username
{
   $usernames{$user}++;
}

foreach (sort keys %usernames)
{
   print "$_ : $usernames{$_}\n";
}