Select Code to Download

if ($current_line[0] eq $key) {
              if ($current_line[1] == $position1) {
...
                }
              }
           }

if (   $current_line[0] eq $key 
    && $current_line[1] == $position1
...
{
    print join ("\t", @current_line[0..3], "***", $key, $position1), "
+\n";
}