Select Code to Download

use strict;
use warnings;
...
          'd' => 2
        };

my %h = (
        a =>    {b => 1},
...
my @a = qw(a b c);

print Dumper @h{@a[0, 2]};