my $i = 0;
sub foo {
    $i++;
}

print "Hier ist auch das i $i";