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