. . . snip . . . my $nfshashofhashes = { "rtsys_mpt" => { '%export_name' => '/bb/rtsys', '%filer_device' => { '@west' => 'nydevnfs_rtsysgit', '@ridge' => 'njdevnfs_rtsysgit', }, '%filer_volume' => '/vol/rtsysgit', }, "bigstorderv_mpt" => { . . . snip . . . #### $ perl 1028644.pl bigstorderv_mpt nydevnfs_derv /vol/derv /bb/bigstor/derv build11_mpt ???? /vol/sunbbsource_c /bb/source build11_mpt rnap7751-s ???? /bb/source build11_mpt ???? /vol/sunquirks /bb/source build11_mpt nydevnfs_sunbbsource /vol/sunbbsource /bb/source build10_mpt rnap7751-s /vol/sunbbsource_c /bb/source build10_mpt nydevnfs_sunbbsource /vol/sunbbsource /bb/source rtsys_mpt njdevnfs_rtsysgit /vol/rtsysgit /bb/rtsys rtsys_mpt nydevnfs_rtsysgit /vol/rtsysgit /bb/rtsys bigstormtg_mpt njdevnfs_mtge /vol/mtge /bb/bigstor/mtgmodel bigstormtg_mpt nydevnfs_mtge /vol/mtge /bb/bigstor/mtgmodel