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

##</code><code>##

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