As far as I understand the JSON syntax, your document contains only one array (under 'dev' key) which consists of only one hash (with only one key called 'nfsmount'). All other data structures are hashes, which only allow unique key names.

Thus, you need to print only two hash keys and there is no need in manual listing of all keys in this document. Try this: 

use JSON;
use Data::Dumper;
...; # open files, read the JSON string
my $data = decode_json $your_json_string;
for (qw/bigstor_nfs test_nfs/) { # list of keys to search for
 print {$filehandle} Dumper { $_ => $data->{tag}{dev}[0]{nfsmount}{$_}
+ } if exists $data->{tag}{dev}[0]{nfsmount}{$_};
 # print to prevousely opened filehandle:
 # the results of "dumping" of anonymous hash reference
 # containing the key and its value
 # if this key exists in the main hash
}

[download]

Sorry if my advice was wrong.

In reply to Re^3: Iterate over a perl nested hash data structure by aitap
in thread Iterate over a perl nested hash data structure by NewLondonPerl1

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.