print "$vm, $filer, \n" if ! $seen{"$vm:$filler"}++

##</code><code>##

foreach my $key ( keys %seen )
{
  print "$key was seen $seen{$key} times\n";
}