I think this works without the **2 too.

Also, you'll want to add my $i = 0; before and change while ($_ = to while (local $_ = (or reorganize it to a for loop that localizes automatically) if you want to use this more than once.

Update: for the record, the original code had ++$_**2 instead of ++$_.