19:53 >perl -MData::Dump -wE "sub f { return (17, 42); } my %h = ( key1 => scalar f() ); dd \%h;"
{ key1 => 42 }

19:54 >