my %h=(a=>1,b=>2,c=>3);
my @x=('a','c');
my $hr = \%h;
my $gr = $hr->{@x};
print $gr->{a}