my @inInterval = map { $_->[1] } grep { $start <= $_->[0] and $_->[0] <= $end } @SNPs;