my $matches = {};
$matches->{$user} = [grep {/$user/} @logins];

##</code><code>##

foreach my $user (keys %$matches) {
    print "$user: ". @{$matches->{$user}} . "\n";
}

##</code><code>##

user1: 1
user2: 0
user3: 0

##</code><code>##

user1: Thu Nov  5 18:49:39 2009 [pid x] [user1] OK LOGIN: Client "127.0.0.1"