Select Code to Download

my @tmp;
while (my $elem = pop @array) { # or s/pop/shift/
...
  }
}
@array = @tmp;

my $i=0;
while ($i < @array) {
...
    print "discarding $x\n";
  }
}