Select Code to Download

#!/usr/bin/perl

...
while (my @arr = $iter->()) {
  print "@arr\n";
}

sub choose_n {
  my $n = shift;
...
    @set[$iter->()];
  }
}