use strict;
use warnings;
use XML::Simple;

my $d =   {'Phones' => [ {
        'Manufacturer' => 'somebody',
        'Model'        => 'something',
}]};


my $xml = new XML::Simple(NoAttr=>1,RootName=>'terminalversioncount');
print $xml->XMLout($d);
__END__
<terminalversioncount>
  <Phones>
    <Manufacturer>somebody</Manufacturer>
    <Model>something</Model>
  </Phones>
</terminalversioncount>