create_input_window('Test1',\&testsub1);  #übergebe Referenz eines benannten Subs
create_input_window('Test2',\&testsub2);

#...
#  my $subtoexecute = sub{testsub1($mw_edit->get('1.0', 'end'))}; # <-- wie 
# kann man hier testsub1 durch die Variable $thissub ersetzen ?

my $subtoexecute = sub{ $thissub->($mw_edit->get('1.0', 'end') ) };