use Data::Diver qw( Dive );
my $nj_loc = Dive( $root, qw[ dev 0 nfsmount  bigstor_nfs  bigstor17_mpt  filer_device  nj_loc ] );