Define user roles in perl