sub STATIC_VARIABLE{ 0 }

sub foo{
  STATIC_VARIABLE && my $x;
  print "FOO: ", $x++, "\n";
}