Help for this page
$ perl -MData::Printer -E 'sub some_sub { return 1 } ; %h = ( foo => s +ome_sub(), bar => 42 ); p %h' { ... bar 42, foo undef }