Re^2: Square the array values.

[kiruthika.bkite]

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;

Or use the following way.

my @array=(1,2,3);
foreach (@array)
{
        $_=$_*$_;
}

[chromatic]

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

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

... or even use postfix iteration:

$_ *= $_ for @array;