Help for this page
print "$vm, $filer, \n" if ! $seen{"$vm:$filler"}++
foreach my $key ( keys %seen ) { print "$key was seen $seen{$key} times\n"; }