http://d.hatena.ne.jp/harupiyo/20090226 use Data::Dumper::Names; use Data::Dumper; use Benchmark qw(:all); my $hoge = { hgoe => 'hoge' }; cmpthese( -5 , { 'Data::Dumper' => sub { Data::Dumper::Dumper($hoge); }, 'Data::Dumper::Names' => sub…