Select Code to Download

sub bandpass {
    my( $aref, $loValue, $hiValue ) = @_;
...
my $aref = $matches{ $fasta_id }{ $sitekey };
$sets{ $fasta_id }[ $setscounter ]{ $sitekey } = 
    [ bandpass( $aref, $lowerlimit, $upperlimit ) ];

min---------loPass--hiPass------------------------------------max

min-------------------------------------------loPass--hiPass--max
min--loPass-------------------------------------------hiPass--max

sub bandpass {
    my( $aref, $loValue, $hiValue ) = @_;
...
    ++$hi while $hi < $#{ $aref } and $aref->[ $hi + 1 ] <= $hiValue;
    return @{ $aref }[ $lo .. $hi ];
}