Select Code to Download

perl -MData::Dumper -e "print Dumper @{$_[3]}{'a','b','c','d'}, $_[3];
+ "
$VAR1 = undef;
...
$VAR3 = undef;
$VAR4 = undef;
$VAR5 = '1';

perl -MData::Dumper -e 'print Dumper @$data{"a","b","c"}, $data'
$VAR1 = undef;
...
          'a' => undef,
          'b' => undef
        };