Select Code to Download

use strict;
use warnings;
...
        $len--;
}
print Dumper \@array;

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