$Data::Dumper::Sortkeys = sub { sort by_number (...) };