open(my $in, '<', "c:/perl/scripts/dates/dates.txt")
    or die "open: $!\n";

my @date;
while (<$in>) {
    chomp;
    push(@date, $_);
}
close($in);