sub sortDates {
	my ($month1, $day1, $year1) = split /\//, $a;
	my ($month2, $day2, $year2) = split /\//, $b;
	$year1 += 1900 if $year1 < 50;
	$year2 += 1900 if $year2 < 50;
	$year1 <=> $year2
		or
	$month1 <=> $month2
		or
	$day1 <=> $day2;
}