perlでDumperしたデータをテキストデータに書き出す方法

---

use Data::Dumper;

my @colors = qw(red blue green);

my @fluits = qw(orange banana apple);

my %hash;

foreach my $c ( @colors ) {

foreach my $f ( @fluits ) {

$hash{$c}{$f} = 1; # 連想配列を作成

}

}

open(FP,'> dump.txt') or die; # 保存するファイルを開く

print FP Dumper(\%hash); # 連想配列の内容をファイルに書き出す

close(FP);

---

こちらのファイルを元に作ったら、

きちんとデータがテキストデータに保存できました！

---

my $data = $parser->XMLin($document);

print fh "$data". "\n";

---

これではHASH（0X45726..）みたいなエラーばかりが

書き出されていたので、

---

my $data = $parser->XMLin($document);

print fh Dumper($data). "\n";

---

こんな感じに修正しました！

そしたらきちんと表示されました！