my Dog $spot; # new Dog

my Dog $dog = $spot; # oops - create a Dog just to destroy it