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

##</code><code>##

sub foo {$_[0] =~ s/foo/bar/; print $_[0]} # bad
sub bar {my $temp = $_[0]; $temp =~ s/foo/bar/; print $temp} # better