Select Code to Download

@{$sets{$fasta_id}[$setscounter]{$sitekey}} = ();
foreach ( sort @{$matches{$fasta_id}{$sitekey}} ) {
    last if $_ > $upperlimit;
    next if $_ < $lowerlimit;
    push @{$sets{$fasta_id}[$setscounter]{$sitekey}}, $_;

for my $hit (@{$matches{$fasta_id}{$sitekey}}) {
            next unless ($hit >= $lowerlimit);
            last unless ($hit <= $upperlimit);
            my $ggg = $hit + 0;
            push (@arrayA, $ggg);