$ perl -MYAML::Syck -le '$h{bar}=1;$h{bar}=undef;push @{$h{bar}}, qw/a b c/;print Dump( \%h )' --- bar: - a - b - c