sub Modify_Hash_1 {
  my ( $Ref_to_Hash ) = @_;
  # Note, _NOT_ {} - must be assigning a hash,
  # not a hash ref
  %{$Ref_to_Hash} = ( "Pears", 5, "Peaches", 7 );
};