Я не знаю, поможет ли это, но, возможно, вы можете попробовать что-то вроде этого модифицированного:
#------------- Accelerators --------------------------------------------------------
#------------- Accelerator Objects ---------------------------------------------
my $accel = Gtk2::AccelGroup->new();
#-------------------------------------------------------------------------------
#------------- Accelerator Shortcuts -------------------------------------------
my ( $key, $mods ) = Gtk2::Accelerator->parse( '<alt>T' );
#-------------------------------------------------------------------------------
#------------- Accelerator connecting ------------------------------------------
$accel->connect($key, $mods, [qw/visible/], sub { ifKeyTranslateGUI($clipboardSearchButton); });
#-------------------------------------------------------------------------------
#------------- Accelerator adding to window ------------------------------------
$mainWindow->add_accel_group ($accel);
#-------------------------------------------------------------------------------