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