# Parse ein XML Document
use XML::Simple;
my $xml = new XML::Simple;
my $doc = $xml->XMLin("file.xml");
                
# Zähle Anzahl Einträge
my $rowCount=0;
foreach my $key (keys (%{$doc->{item}})){
        $rowCount++;
}

# Erstelle Grid
$self->{grid} = Wx::Grid->new($self->{tab}, -1);
$self->{grid}->CreateGrid($rowCount,4);
$self->{grid}->SetColLabelValue(0,"A");
 
# Füge dem Grid anhand der XML Datei die Einträge hinzu
my $row=0;
foreach my $key (keys (%{$doc->{item}})){
        my $name = $doc->{item}->{$key}->{'name'};
        $self->{grid}->SetCellValue($row,1, $name);
        $row++;
}
                
# Füge Rechtsklick-Event hinzu für Grid Zellen
Wx::Event::EVT_GRID_CELL_RIGHT_CLICK($self, \&showPopupMenu); 

# Das PopUp Menü an sich
sub showPopupMenu {
        my ($self,$event) = @_;
        my $pos = $event->GetPosition();
        my $row = $event->GetRow();
        
        # Connect Event
        Wx::Event::EVT_MENU($self, "101", sub {
                $self->onSelect($event);
        });
        
        my $menu = Wx::Menu->new();
        my $download = Wx::MenuItem->new($menu, "101","Select");
        $menu->AppendItem($download);
        $menu->Append($loeschen);
        $menu->Append($neustart);
        $self->PopupMenu($menu, $pos);
        $menu->Destroy();
}
        
sub onSelect {
        my ($self,$event) = @_;
        my $row = $event->GetRow();
        $self->{grid}->SetCellValue($row,1, "Text");
        # Disconnect Event
        Wx::Event::EVT_MENU($self, "101","");
}