#!/usr/bin/perl -w
use strict;

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 @strine_monks = qw(
       Drongo Nong Mug Bludger
       Dill Illywhacker Larrikin Mate
       Cobber Bloke Poddy-Dodger Ratbag
       Sheila Tart Walloper Yobbo
       Dag Skite Wanker Yahoo
       Galah Digger Pollie Wowser
       Ponce Ant's-Pants Ocker Boss-Cocky);

my $num_levels = @perl_monks;

printf "%-6s%-15s%-15s%-15s",
   "Level","Perl Monk",
   "Strine Monk",
   "Singlish Monk";

print "\n\n";
my $c;

for ($c=0; $c<$num_levels; $c++) {
    printf "%-6s%-15s%-15s%-15s",
        $c+1,
        $perl_monks[$c],
        $strine_monks[$c],
        "$perl_monks[$c]-lah";
    print "\n";
}