my $i; while (