my $foo_is_init;
sub foo {
  $foo_is_init = init_foo() unless $foo_is_init;
  # etc
}