for my $string ("\n",
                '  ' x ( $level - 1 ),
                 shift @pre_push) {
    $buff = $buff . $string;
}