ups.. in der activate(); hab ich wohl nen paar test ueberig gelassen..

die Zeilen koennen da weg =)
my @string = reverse split//,$string;
print "$liste\n";
print join("\n", @$listbox_ref)."\n";

MfG