#!/usr/bin/env perl

use strict;
use warnings;

my $input = do { local $/; <> }; 
$input =~ y/":/',/;
my $data = eval $input;

for my $file (qw{ny_loc nj_loc}) {
    print "$file file =\n";
    for my $key (sort grep { ref $data->{$_} eq 'HASH' } keys %$data) {
        my $home_link_mpt = $data->{$key}{'home_nfs'}{'home-lnk-mpt'};
        print join(':', $key,
            $home_link_mpt->{'%filer_device'}{$file},
            $home_link_mpt->{'%filer_volume'}{$file},
            $home_link_mpt->{'%export_name'}
        ), "\n";
    }
    print "\n";
}