YAML 上書き保存方法

YAML.pl

use strict;
use YAML::XS;

my %h = ("12" => 4);
$h{foo} = "bar";
my @array = qw/apple banana orange/;

## YAMLドキュメントの読み込み
my $filename = YAML::XS::Load("example.yaml");
open F, '>>', $filename or die("cannot open file.");
print F Dump \%h; #YAMLでハッシュとして扱える
print F Dump %h; #おかしなこと
print F Dump \@array; #YAMLで配列として扱える
print F Dump @array; #おかしなこと
close F;