Select Code to Download

my @SNPs = map { [ (split /\t/)[3], $_ ] } <CG>;

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