Perl script to process .ini file

#!C:\Perl\bin\perl.exe
 
	use File::Copy;
	use File::DosGlob;
	use Config::INI::Simple;
	
	$cnt = 0;
	$num = 1;
	$cnt2 = 0;
	
	my	$ini = 'C:/ghost.ini';
	
	open( INFILE, $ini);
		@inLines = <INFILE>;
	close( INFILE );
	
	# Parse all MainMenu Items
	foreach $line (@inLines)
	{
		@chars = split(//,$line);
		
		if ($chars[0] eq "[")
		{
			$MainMenu[$cnt] = $line;
		}
		else
		{
			if($line eq "\n")
			{
				$trash = $line;
			}
			else
			{
				$Item[$cnt] = $line;
			}
		}
			$cnt++;		
	}
	
	# Build MainMenu now
	foreach $I (@MainMenu)
	{
		@L = split(//,$I);
		
		foreach $y (@L)
		{
			if($y eq "[" or $y eq "]")
			{
				$trash = $y;
				$cnt2++;
			}
			else
			{
				$w[$cnt2] = $y;
				$cnt2++;
			}
		}	
	}
	
	# Write character array to file
	open(INFO, ">C:/menu.tmp");
		print INFO @w;
	close(INFO);
	
	# Build new Array for MainMenu
	open(MENU, "<C:/menu.tmp");
		@MAINMENU = <MENU>;
	close(MENU);
	
		
	system('cls');			
	
	# Display Menu
	print "\n";
	print "*****   Welcome to the Leegin Ghost Server!!   *****\n\n";
	foreach $x (@MAINMENU)
	{
		print "\t" . $num . " " . $x;
		$num++;
	}
	print "\n";
	print "****************************************************\n";
	print "Please select the brand. ";
	$ans = <>;
	# Done with menu