if ($::i++ == 10) { my $a = ; print "ALSO READ: $a\n";