Fetch array of values from hashref

[pme]

Hi Monks,

Could you tell me how can I fetch array of values from hashref in single instruction? Thanks.

my @a = qw/c b d/;

my %h = (
    a => 4,
    b => 3,
    c => 2,
    d => 1,
);

my @b = @h{@a};        # this one works as expected
print "2 3 1\n", Dumper(\@b), "\n";

my $h = \%h;
my @c = @{%$h}->{@a};  # this one fails, what is the correct syntax?
print "2 3 1\n", Dumper(\@c), "\n";