my @perl_monks = qw(
       Initiate Novice Acolyte Sexton
       Beadle Scribe Monk Pilgrim
       Friar Hermit Chaplain Deacon
       Curate Priest Vicar Parson
       Prior Monsignor Abbot Canon
       Chancellor Bishop Archbishop
       Cardinal Sage Saint Apostle Pope
       );

my @svenska_munkar = qw(
                        '*' Novis Kyrkotjänare Kyrkvaktmästare
                        'Pedell; Kyrkvaktare' Skriftlärd Munk Pilgrim
                        Tiggarmunk Eremit Kaplan Diakon
                        Pastorsadjunkt 'enklare präst' Kyrkoherde 'Kyrkoherde; Präst'
                        Prior '*' Abbot 'Kanik; Domkyrkopräst'
                        Kansler Biskop Ärkebiskop
                        Kardinal '*' Helgon Apostel Påve
                        );