Select Code to Download

#!/usr/bin/perl -w
use strict;
...
sub by_delta {
    return $monks{$a}{delta} <=> $monks{$b}{delta};
}

Total Monks with birthdays:432

...
Ven'Tatsu            06-20      06-11      9
Roger                08-29      08-19      10
Siddartha            03-28      04-07      10