#!/usr/bin/env perl
use warnings;
use strict;
use Data::Dumper;

my $menufile = './in.xml';
use XML::Simple qw(:strict);
my $xml = XMLin($menufile,forcearray=>['item','command','exec','menu'],keyattr=>[],suppressempty=>undef);
print Dumper($xml);