Select Code to Download

my @dates;
foreach $odate (@logs) {
...
for my $date (@dates) {
    print "Processing $date\n";
};

while (@logs = <FILE>) {
    foreach (@logs) {
...

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