$USERS{ $pwent[ 0 ] } = $pwent[ 4 ] while @pwent = getpwent();