in reply to Re: Square the array values.
in thread Square the array values.

Is this you are expecting.
use strict;
use warnings;
use Data::Dumper;


my @array=(1,2,3);
print Dumper \@array;
my $len=$#array;
while($len>=0)
{
        $array[$len]=$array[$len]*$array[$len];
        $len--;
}
print Dumper \@array;

[download]


Or use the following way.
my @array=(1,2,3);
foreach (@array)
{
        $_=$_*$_;
}

[download]

Replies are listed 'Best First'.
Re^3: Square the array values.
by chromatic (Archbishop) on Mar 18, 2010 at 15:32 UTC

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

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

    [download]

    ... or even use postfix iteration:

    $_ *= $_ for @array;
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom