$ perl -MData::Dumper -MData::Diver=DiveVal -E 'DiveVal($x = {}, qw(1 2 3)); say Dumper $x'
$VAR1 = {
          '1' => [
                   undef,
                   undef,
                   [
                     undef,
                     undef,
                     undef,
                     undef
                   ]
                 ]
        };