while (<errorlog>)
{
    $logins{$1}++ if /Login succeeded\. User: ([^,]+)/;
}
print map { "$_: $logins{$_}\n" } sort keys %logins;