while (my $odate = <FILE>) {
   ...
};