{
  my $foo;
  sub myfunc {
    $foo ||= 123;
    ...;
  }
}