Select Code to Download

for my $line (<INFILE>) {
...
        }
    }
}

while (my $line = <INFILE>) {
    chomp $line;
...
        push(@rawfile,$line);
    }
}