Select Code to Download

my @queue = (1, 2, 3, 4);
while (@queue) {
...
  next unless subA($current);
  push @queue, subB($current);
}