It's not supposed to compile.It's only a section of code. I thought that would be pretty obvious, since there is no
text widget defined in the code(within which the pop-up is required), the code for the subs &suggestcomb, replace1, replace2, etc... is not supplied, the value for $gotfile is not defined, no use Tk;etc,etc.

My question was only regarding controlling the number of buttons in the pop-up menu.