Select Code to Download

with %$anonhash, {
   name    => 'dave',
...
   phone   => '555-1212',
   hobbies => [ qw( Perl Anime ) ], # make the value into a scalar.
};

sub with(\%$) {
   my ($hash, $values) = @_;
   @$hash{keys %$values} = values %$values;
}