sub SlurpBuddyList {
    my @array = ();
    @array = ("user1:asdefwe", "user2:sadfr", "user3:edfqwef");
    RefreshBuddyList(@array);
}

sub RefreshBuddyList {
    my $m;
    my $user;
    my $nickname;
    for(@_) {
        $m = $config{MainWindow}->Menu(-tearoff => 0);
        $user = (split(/\:/, $_))[0];
        $m->add(
            'command',
            -label => "Profil von $user anzeigen",
            -command => sub { GotoUrl("http://127.0.0.1/cgi-bin/goto.pl?username=$user") }
        );
        $nickname = $config{MainWindow}->Label(
            -text => $user,-background => 'white', -font => $config{Font}
        );
        $nickname->bind('<Button-3>' => sub { $m->Popup(-popover => 'cursor') });

        $nickname->pack();

    }
}