my @fastarray;
my @fastarray;
my $setscounter;
my %matches;
my $site;
my %sets;
                                                                                
FASTA: for (my $h=0;$h<(@fastarray);$h++) {