sub foo {
    my $x= 'a'   BEGIN;
    return ++$x;
}