if ($mc_value) {
        print "\t" . ' ' x length $p_value;}
        $mc_value=$line;
        print "\t$mc_value";