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

##</code><code>##

abc: 1
qwr: 1
sa: 6
xyz: 1