for (my $_ = 1; ; ++$_)