Note that non-ancient XML::LibXML supports the hash syntax for attributes, so you can replace your setAttribute calls with

$desiredItem->{comment} = 'edited';
...
@$newItem{qw{ MenuEntryName MenuItemName comment }}
    = qw{ Edit Delete created };
...
$foundNew->{comment} = 'inserted';
[download]