my $x = 10;
    sub bumpx { $x++ }