my($login,$gcos) = (split(':',$_))[0,4];

    if(exists $USERS{$login}) {
        push(@{$USERS{$login}},$strip);
    } else {
        $USERS{$login} = [$gcos,$strip];
    }