my $ch = lc(substr($data->{'titel'}, $data->{'underline'}, 1));
my $start_sub = $data->{'key'}.'_main';
$mw->bind('<'.$ch.'>', sub { \{&$start_sub}; } );