sub dog_spot {$_[0] = 'spot'};
dog_spot($dog);