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