Select Code to Download

while (
   /
...

   # Do something with $on and @processed.
}

while (<$fh>) {
   my ($on, $processed) = /
...

   # Do something with $on and @processed.
}