use warnings; use strict; use XML::Simple; my $hash = { name => 'bob', value1 => 'blah', value2 => 'blah2', }; my $xs = new XML::Simple; my $xml = $xs->XMLout($hash, NoAttr => 1, RootName=>'newPhone', ); print $xml; __END__ bob blah blah2