BEGIN { my $bar = sub { # ... }; sub foo { # ... $bar->( $baz ); # ... $bar->( $quux ); # ... } }