use strict      ;
use warnings    ;

use XML::Smart  ;


my %hash = ( 
    'key1' => 'value1' ,
    'key2' => 'value2' ,
    'key3' => 'value3' ,
    'key4' => 'value4' ,
    );


my $xml_obj = new XML::Smart();

foreach my $key ( keys %hash ) { 
    $xml_obj->{form}{$key} = { CONTENT => $hash{ $key } } ;
}

print $xml_obj->data();