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