Select Code to Download

sub Modify_Hash_1 {
  my ( $Ref_to_Hash ) = @_;
...
# hash with the specified values
#  $Ref_to_Hash = { "Pears", 5, "Peaches", 7 };
};