my $h = { foo => 1, bar => 2 };
@{ $h }{qw/ foo bar /} = ( 667, 889 );
# or postfix form:
# $h->@{qw/ foo bar /} = ( 667, 889 );