$ perl -MData::Printer -E 'sub some_sub { return 1 } ; %h = ( foo => some_sub(), bar => 42 ); p %h'
{
    bar   42,
    foo   1
}

$ perl -MData::Printer -E 'sub some_sub { return } ; %h = ( foo => some_sub(), bar => 42 ); p %h'
{
    42    undef,
    foo   "bar"
}

$ perl -MData::Printer -E 'sub some_sub { return } ; %h = ( foo => scalar some_sub(), bar => 42 ); p %h'
{
    bar   42,
    foo   undef
}