foreach my $index ( 0 .. $#{$matches{$fastaseg}{$sitekey}} )