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

chomp( my @date = <$in> );

close($in);