I'd need to see the rest of your code to be sure, but it appears to me that you are creating a new "Label" and putting it in place over the original "Label". Perhaps you should try using -textvariable=>\$loginchoice rather than -text=>"$loginchoice". The -textvariable option for a Tk::Label widget will automatically update the label with any value you place in $loginchoice.