# Usually, you should replace:

    my $bar= init() if condition();

# With:

    my $bar;
    $bar= init()
        if  condition();

# or even:

    my $bar= condition() ? init() : undef;