Select Code to Download

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

$VAR1 = 'b';
$VAR2 = 'd';
...
$VAR1 = 'b';
$VAR2 = 'd';
$VAR3 = 'h';