in reply to PERL/Tk and Menu -command option

Try writing your command list as:

(
"A34980 Switch Cycles" => \&get_SwCycles,
"A34980 Info"          => \&getA34980Info
);

[download]
Perl is Huffman encoded by design.

In Section Seekers of Perl Wisdom