#!/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";
}

##</code><code>##

$ pm_data_1026558.pl pm_data_1026558.dat
ny_loc file =
@dev:nydevnfstest10_links:/vol/linkstest10:/links10
@fred:nydevnfs_links:/vol/links:/links

nj_loc file =
@dev:njdevnfstest11_links:/vol/linkstest11:/links10
@fred:njdevnfs_links:/vol/links:/links