my $wordNum = 0;
foreach my $boxLine ( @empty_square) {
	
	if ($putNum) {
	    $wordNum ++;
		my $space = $boxLine =~ s/\./\./g;
		my $string = sprintf "%-*d", $space, $wordNum;
		$boxLine =~ s/\.+/$string/o;
	} else {
		$boxLine =~ s/\./ /g;
	}
}