Select Code to Download

while(<FILE>) {
   push @stock,$_;
...

# Would be better as...
@stock = <FILE>;

while(@stock) {
 foreach $line (@stock) {

while (my $line = <FILE>) {
    # do stuff
}

open $item[2], ">>some_filename";
       put_items_into_it;
    close $item[2]

my $cat = undef;
while (my $line = <FILE>) {
...
    print OUTFILE ## Whatever ###;
}
close OUTFILE;

delete_that_line_from_stock;