if ($current_line[0] eq $key) {
              if ($current_line[1] == $position1) {
                  if ($current_line[2] ==1) {
                      if ($current_line[3] >= 3) {

          print join ("\t", $current_line[0],$current_line[1],$current
+_line[2],$current_line[3], "***",$key, $position1), "\n";
                   }
                }
              }
           }