my %results= (
    foo => doFoo(),
    bar => getBar(),
);

##</code><code>##

    if(  $result{foo}  ) {

##</code><code>##

    my( $foo, $bar )= ( doFoo(), getBar() );
    if(  $foo  ) {

##</code><code>##

    %hash= ( key => scalar someFunc() );
    %hash= ( key => [ someFunc() ] );
    %hash= ( key => 0 + someFunc() );
    ...