sub activate {
    my ($liste, $listbox_ref) = @_;

    my $string = $entry1->get();
    $string = reverse($string) if ($text eq 'rückwärts');
    my @string = split/ /,  $string;
    @$listbox_ref[$liste]->insert('end', "$_") for (@string);
}