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