sub ChangeArray1
{
    $_ = 1 for @A;
}