# use strict; sub foo { my $x if 0; return ++$x; } for (1..7){ print foo(); print "($x)"; };