$call_months[0]

# now search the date stuff, and format the table...
my $year = 2003;
my @months = ( ['Jan' => 31], ['Feb' => ($year % 4 ? 28 : 29)], ['Mar' => 31], ['Apr' => 30],
['May' => 31], ['Jun' => 30], ['Jul' => 31], ['Aug' => 31],
['Sep' => 30], ['Oct' => 31], ['Nov' => 30], ['Dec' => 31],
);

my @call_months = qw();

my @ordinal = qw(first second third fourth fifth);
my @ends = ('th', 'st', 'nd', 'rd', 'th', 'th', 'th', 'th', 'th', 'th');

foreach my $n (0..$#months) {

my $date = ParseDate("1st Sunday in $months[$n][0] $year");
my ($day) = $date =~ /^\d{6}(\d\d)/;
my $i = 0;
while ($day <= $months[$n][1]) {
$call_months[$n] .= sprintf("The %2d@ends[$day=~/(\d)$/] is the $ordinal[$i] Sunday of $months[$n][0]<BR>", $day);
$day += 7; $i++;
}
}