return if not ... a cheap test...;
    return if not ... a more expensive test..;
    my $foo = ..initialization...;
    ...body of sub routine ...