Many alternatives of dropdown box of Tcl/Tk are more attractive than perl/Tk (e.g. BrowseEntry et al were frustrating to me)

So, you use Tcl/Tk's widgets via Tcl::Tk CPAN module and even native-looking (using Tile) and here you go!