tie my @user_list=>'Tie::Tk::Listbox', $scroll;
    my @user_list = qw(
                       'hans musterman alter 47',
                       'gabi mustermann alter 45',
                       'micky mustermann alter 10');