Perl действительно не предполагается использовать таким образом. Нужно использовать конкретные модули для конкретных задач. По своему опыту написания достаточно крупных проектов на перле — вам не нужен фреймворк )
Можно так:
при хите — ZADD guys_online <unix_timestamp> <user_id>
получить число онлайн ребят — ZCOUNT guys_online <unix_timestamp-15*60> +inf
время от времени чистить старые записи
— ZREMRANGEBYSCORE guys_online -inf (<unix_timestamp-15*60>