##
use XML::Simple;
use Data::Dumper;
my $file_name = "myfile.xml";
my $xmlObj = XML::Simple->new();
my $data = $xmlObj->XMLin($file_name);
my $primitive = 'A'
foreach my $mydata(keys %{$data->{rules}{rule}{$primitive}{nonterminal}}) {
print $mydata;
print " ";
}