OT - not really a Perl solution, and relies on default conditions. Probably breaks the 'no modules' rule as well.

perl -e "`head /etc/group | grep -n . | sed -e 's/:.*//'`"

Just my $.02