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