I preferred a regex over a split since we are only getting the user out of the data and we don't need any of the other values. You can increment the user's login count in one line inside the while loop:

$users{$1}++ if $line =~ /Login succeeded. User: (\w+)/i;
[download]