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