sub Modify_Hash_1 {
  my ( $Ref_to_Hash ) = @_;
  $Ref_to_Hash->{Apples}=5;

# This line would discard the reference to %Fruits, and create a *new* 
# hash with the specified values
#  $Ref_to_Hash = { "Pears", 5, "Peaches", 7 };
};