perl -MData::Dumper
$data = { a=>'b', c=>'d', e=>'h', i=>'j' };
$_[3] = { a=>'b', c=>'d', e=>'h', i=>'j' };
print Dumper @$data{'a','c','e'};
print "\n";
print Dumper @{$_[3]}{'a','c','e'};
print "\n";