; sub foobar { my $value = shift ; my $c = 0 ; if ( ... ) { my $a = ... ; my $b = $a + 5 ; my $c = compute($a) } ; return }