[M]M/[D]D/YYYY #### sub isGreater { my $currDate = $_[0]; my $oldDate = $_[1]; my $currMonth = substr($currDate, 0, index($currDate, "\/")); $currDate = substr($currDate, index($currDate, "\/")+1); my $oldMonth = substr($oldDate, 0, index($oldDate, "\/")); $oldDate = substr($oldDate, index($oldDate, "\/")+1); my $currDay = substr($currDate, 0, index($currDate, "\/")); $currDate = substr($currDate, index($currDate, "\/")+1); my $oldDay = substr($oldDate, 0, index($oldDate, "\/")); $oldDate = substr($oldDate, index($oldDate, "\/")+1); my $currYear = $currDate; my $oldYear = $oldDate; if ( $currYear > $oldYear ) { return 1; } elsif ( $currMonth > $oldMonth ) { return 1; } elsif ( $currDay > $oldDay ) { return 1; } return 0; }