...

$X1 = $main->rootx();
$Y1 = $main->rooty();

$maussubmain = $main->Toplevel;
my $geom = '=180x25+' . ($X+$X1) . '+' . ($Y + $Y1+60);
$maussubmain->geometry($geom);
$maussubmain->resizable(0,0);
$maussubmain->iconname('Sync-Richtung');

$maussubmain->title($tmp);

my $but_mausr1 =$maussubmain->Button    (-text => " <= ",
                            -command => sub{
                                       $msm{$tmp} = 2;
                                       $file_list->itemConfigure($selected[0], 2, -text => "\[<=\]");
                                       $main->update();
                                       $maussubmain->destroy; },
                            ) -> pack(-side=>'left', -anchor=>'w', -padx => '2p');

...