#!/usr/bin/perl
use strict;
use warnings;

my $filer;
my %filer_hash;

for (qx(mount -t nfs | awk -F/ '{print \$1,\$3}' | sed -r 's/(blah.*:)|(bblah.*:)//g' |sort)) {
    chomp;
    my ($host, $mp) = split;
    push @{ $filer_hash{$host} }, $mp;
}
foreach $filer ( sort { ${filer_hash{$b}} <=> ${filer_hash{$a}} } keys %filer_hash ) {
   print "$filer:@{$filer_hash{$filer}},"
}