Re^3: Square the array values.

The latter is much better, though you could multiply and assign in place with =*:

for (@array)
{
    $_ *= $_;
}
[download]

... or even use postfix iteration:

$_ *= $_ for @array;