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

##</code><code>##

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