# erster Test
$ perl -wle '
my $i=0; 
sub foo { my $cnt = shift; print "i innen: $cnt\n"; }  

foo( ++$i );
'
i innen: 1

# zweiter Test
$ perl -wle '
my $i=0; 
sub foo { print "i innen: ", ++$i, "\n"; } 

foo(); 
print "i aussen: $i\n";
'
i innen: 1

i aussen: 1