#!/usr/bin/perl -w
use strict;
use XML::Twig;

my %hash= ( name   => 'bob',
            value1 => 'blah',
            value2 => 'blah2',
          );

XML::Twig::Elt->new( newPhone => map { XML::Twig::Elt->new( $_ => $hash{$_}) } sort keys %hash)
              ->print( 'indented' );