my @dateParts = split /[\/\-]/, $chaseList[1];
my $month = $dateParts[0];    # For purposes of example; see note below