my $button1 = $frame4 -> Button(-text => "Suchen", -command =>[\&datenbank_suche, $scrl,$suchbegriff], -width=>'20' )