Select Code to Download

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

my @ar = values %$h;
# or postfix form:
# my @ar = values $h->%*;

perldoc perldata
perldoc perlref