That of course won't work since you pass the string literal '$entry1' which you attempt to use as a Tk::Entry object in the blacken() sub.

You need to remove the quotes.