my $i=1; my $end= 2; while ($i++<$end) { $end++; }