use Data::Dumper;
$Data::Dumper::Sortkeys = sub { [ sort keys %{$_[0]} ] };
print Dumper({}, {});