$ perl -MData::Dump=dump -e '
        sub f { (1, 2) }; 
        print dump({ a => f, b => 1 })
'