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

##</code><code>##

sub sorter {
    my ( $line, $iter_sub, $inc_sub ) = @_;

    my $i = $iter_sub->($index);
    $allSeq[$i] .= $line;
    $index = $inc_sub->($index);
    print "in: $line\n";
}