# 【実行例１】－普通のハッシュ
print "----- DUMP %exam_org -------------------------------\n";
require Data::Dumper;
print Data::Dumper->Dump( [ \%exam_org ] , [ '*exam_org' ] );
print "-------------------------------------------------------\n";
# 【実行例２】－配列のリファレンスをデリファレンスして出力する
# ハッシュのリファレンスをデリファレンスして出力する
# （変数名の1文字目を*にすると、自動的に*を%に変えて出力してくれる。）
print Data::Dumper->Dump( [ $age_hash_ref ], [ '*age_hash' ] );
# Dumper オプション
# Indent インデント 0（なし）、1（固定幅）、2（自動可変幅:デフォルト)
# Terse 変数名の出力 0（省略しない:デフォルト）、1（可能であれば省略）
# Sortkeys キー項目のソート 0（ソートしない:デフォルト）、1（ソートする）
#
# $Data::Dumper::Indent = 1;
# $Data::Dumper::Terse = 1;
# $Data::Dumper::Sortkeys = 1;
