more Perl - YAML, Hash::Flatten