$ perl -E 'use Data::Dump; my $x = {a=>1}; dd $x'
{ a => 1 }