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;