use YAML  qw'DumpFile LoadFile';
. 
. 
.
DumpFile("test.yaml", \%test);

##</code><code>##

---
key1: value1
key2: value2

##</code><code>##

test:
 key1: value1
 key2: value2