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