perldoc -f getpwnam

Update: To be more specific, you want to read about getgrent. You'd use getpwnam to find the user's primary group, and grobble over what getgrent returns looking for the secondary memberships. This is probably one of the cases where the efficiency loss of the qx// is going to be less trouble than the work of doing it by hand.