my @SNPs = map { [ (split /\t/)[3], $_ ] } ; #### my @inInterval = map { $_->[1] } grep { $start <= $_->[0] and $_->[0] <= $end } @SNPs;