Select Code to Download

foreach my $seq ( @allSeq ) {
    print "seq -->$seq\n";
}

sub sorter {
    my ( $line, $iter_sub, $inc_sub ) = @_;
...
    $index = $inc_sub->($index);
    print "in: $line\n";
}