while ($i < $level) {
               
 print "\t";
               
 $i++;
            }