use XML::Simple;
use strict;
...

print XMLout(\%hash, RootName => 'SESSION');