$f->command(-label=>'QWERTY', -command=>[\&SwitchLayout, $a=>\%QWERTY]);
$f->command(-label=>'DVORAK', -command => [\&SwitchLayout, $a=>\%DVORAK]);