Select Code to Download

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

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

user1: 1
user2: 0
user3: 0

user1: Thu Nov  5 18:49:39 2009 [pid x] [user1] OK LOGIN: Client "127.
+0.0.1"