my @date;

open(IN, "<c:/perl/scripts/dates/dates.txt");
while (<IN>) {
    push (@date, $_);
    }
close(IN);