$ perl -e "use Data::Diver qw/Dive/; $f{a}{b}{c}=666; print Dive(\%f, qw/a b c Q/); print Dive(\%f, qw/a b c/); "
666