Select Code to Download

%volume
%mnt
...
%user
%mntops
%other

sub traverse_hash {
    my ($jsonhash, $found, @keys_to_find) = @_;
...
    close(FILE);
}

$output_format = '%mnt:%device:%volume:%perms';

traverse_hash(\%$decoded_json_obj, {}, @keys_to_find, $output_format);