$ perl -MData::Dump -e' my %h = map {$_ => {v => "x$_"}} qw(a b c); dd @h{qw(a b c)}->{v};'
"xc"