sub ChangeArray6
{
  @_[0..$#_] = (6) x @_;       # Try this instead
}