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