#!/usr/bin/perl

use strict;


my $lineA = "CTACACTTCCATGACCACACATTAATAATTGTGTTCCTAATTAGCTCATTAGTACTCTAC";
my $lineB = "CTACACTTTCACGATCATACACTAATAATCGTTTTTCTAATTAGCTCTTTAGTTCTCTAC";

sub altrIter{return (($_[0] % 10)) };
sub altrInc {return ($_[0]+1) };

&sorter ($lineA, \&altrIter, \&altrInc);
&sorter ($lineB, \&altrIter, \&altrInc);

my @allSeq;
my $index=0;

sub sorter {
	my $i = &{$_[1]}($index);
	$allSeq[$i]= ($allSeq[$i].$_[0]);
	$index =  &{$_[2]}($index);
	print "in: ".$_[0]."\n";
}

for (my $i = 0; $i <= $index; $i++){
	print "seq -->".$allSeq[$i]."\n";
}